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COMMENT 

Would you like to see a machine code 
problem page? 

NEWS 

Includes a new machine from Oric and Oric 
joystick and interface details. 


CLUB SPOT 

A chance for your club to be printed or maybe 
you would like to contact other clubs in 
Europe as well as the U.K. 

SOFTWARE SCAN Page 9 
Plenty of reviews from Severn, Softbacks, 
Knight Software, and a first look at titles 

from No Mans Land. 


ORIC MODEM 
If you are thinking of buying an Oric modem 
this article is a must. 
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ORIC CLUB Page 56 
Plenty of offers on tapes, books and Oric 
peripherals for you to choose from. 

ORIC QUICKIES Page 58 
These are for those who get tired of typing in 
the longer programs. 

HINTS & TIPS Pages 60, 63 
Several small programs and useful ideas to 
help you with your Oric. 

THE NEW ORIC Page 61 
All the facts and details of the new Oric I1Q164 
LETTERS Page 64 
A variety of letters from Oric owners. 
ORIC WINS £1,000.00 

An interesting article explaining how 
this person wrote a program with his Oric 
and won Ist prize in a competition. 
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SOFTWARE LISTINGS 

Eight programs that should cater for everyone, 
including an appropriate one for Christmas 
CHRISTMAS CAROLS - A. Thorn 
FOOTBALL POOLS - E. Hollister 
ETCH-A-SKETCH — P. Cooper 
PITFALL — P. Turner 

REVENGE OF THE BEANS - D. Peat 
MIDNIGHT FEAST — D. Reid 
CRIBBAGE - L. G. Rooke 

ATMOS BASIC UTILITIES — D. Sinfield 


EXTENSION ROM BOARD Page 51 
Add up to 128K of extra ROM to your Oric. 
BOOK REVIEWS Page 53 
A look at Oric and non-Oric titles that you 
find useful. 


BITZ & PIECES Page 67 
Classified Adverts, a puzzle and cartoon. 
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* ome ONY aay | 
Well! Christmas has been and 
gone and I must say I enjoyed 
the break. I’ve been desperately 
trying to get all the news, latest 
software and plenty of good 
programs together for you to 
enjoy in the New Year. 

I’ve managed to get details 
on the new Oric Joystick and 
Interface as well as reviews on 
the Oric Modem and most 
importantly the new Oric 
1Q164. I think you'll agree, 
that’s more than we usually 
have in one issue. 

Quite a few people have been 
asking for the names and 
addresses of the software 
houses to go with the long list 
of software available for the 
Oric-1/Atmos, printed in the 
last issue. So, if you were one of 
them, your problems are solved 
as they’re printed in this issue. 

You should all receive your 
Oric Club membership card 
with this issue and you'll notice 
the new offers pages, which ’'m 
sure you won't want to miss out 
on. If you know of any 
accessories that you would like 
to see on offer, please let me 
know — I’m always open to new 
ideas. One important thing I'd 


like you to do is let me know if 
you DO NOT want your name 
and address to be given to other 
club members, as I do not want 
to upset any of you! Pll wait 
until the next issue before 
sending out any names and 
addresses to club members, so 
you ve got plenty of time. 

The software for you to type 
in includes “Christmas Carols”, 
which I thought was rather 
appropriate. Apart from that 
I’ve tried to include something 
for everyone. We have had 
hundreds of programs 
submitted to us and I must 
thank you all for that. The only 
two types of program we don’t 
receive much of are Forth and 
Mathematical programs. So if 
you have written any Forth or 
Mathematical programs that 
you would like us to publish, 
please send them in. You'll find 
the procedure for program 
submission on the Index page. 

I'd also like to start a 
problem page. If you have any 
questions or problems 
specifically about programming 
and Machine Code, write to 
Oric Owner and if we get 
enough we'll print the replies on 
this problem page. This is 
something that we have not 
tried before but I feel sure that it 
will be worthwhile with your 
help. 

All that’s left for me to say 
now ts that I hope you all enjoy 
the New Year. 


Happy 1985. 


Carolyn Groeneveld 
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Cathie Burrell, Financial and 
Administrative Director was also a 
Director of Tansoft Ltd and is well 
known for her outspoken views on the 
way the software industry is organised 
and financed. 

Geoff Phillips, is Software Director 
and is responsible for all software 
development and liason with the 
companies freelance programmers. He 
has written several books on the Dragon 
and Oric and is also the Author of 
several best-selling programs for the 
Oric. 

The company has had substantial 
financial backing from private investors, 
a company in the U.K. and a company 
in France. The presence of a French 
Director, Marc Lafage, on the board will 
ensure that Orpheus has a high profile in 
the valuable and expanding French 
market. 


[NEW 
SOFTWARE 
HOUSE 
[LAUNCHED | 


Well known in the Oric Software field, 
Paul Kaufman, Cathie Burrell and Geoff 
Phillips have joined together to form a 
new software house - ORPHEUS. 

The company based in Hatley St. 
George, 15 miles from Cambridge, will 
be launching initially with three games 
titles for the Oric 1/Atmos to be rapidly 
followed up by titles for the ZX 
Spectrum, Commodore 64 and MSX 
machines. A business software division 
of the company will be set up to produce 
professional products for the Sirius, 
Apricot and other similar machines. 


Paul Kaufman, Managing Director of ( ) R } D4] —J | 
the Company was formerly a Director of %) aes eae . 
Tansoft Ltd and Editor of the Oric wiih ced nsnehnideiiabalacs 


Owner magazine. 


TANSOFT’S 
NEW TITLE 


ATMOS 
COMPATIBLE 
SOFTWARE 

BY DORMERE 


Dormere Software’s Orical Invaders 
and Orical Backgammon games were 
incorrectly shown in the last issue of 
Oric Owner’s software list, as being 
available only on the Oric-1. This is in 
fact incorrect. 

Dormere’s software has always been 
compatible with the Oric-1 and Atmos, 
since the introduction of the Atmos. 

All Dormere’s software includes a 
‘Good Load’ test before the program 
runs, thus ensuring that a corrupt load 
of the program is detected and the user 
informed. Well done Dormere. 


Insect Insanity is the latest game from 
John Marshall, who brought you that 
other game for budding psycopaths — 
Rat Splat. 


The aim of Insect Insanity is to protect 
the jam in the centre of the screen from 
marauding insects. You do this by 
stamping on them with a large boot, 
which you control to the continuous 
accompaniment of “Flight of the Bumble 
Bee”. 


When the game starts you only have 
creeping slime and the occasional 
cocoon to stamp on but as the game 
progresses, the number and type of 
creatures increases and includes such 
things as the giant rabid boot cruncher. 


The game is well packaged and 
presented and includes options for 
turning the sound on and off, control 
using keyboard or joystick and a hiscore 
table as well as a set of great rhymes 
describing each creature. 


It costs £7.95 and will be available 
after Christmas and is highly 
recommended. 


BRUCE 
EVERISS JOINS 
TANSOFT 


Bruce Everiss has been appointed 
Managing Director of Tansoft, the 
Cambridge-based software house 
specialising in the Oric computer. 

In addition to the software business 
Tansoft will be distributing Oric 
hardware and has been contracted to 
carry out Oric’s marketing function. It is 
also intended to open a small retail 
computer store at the Tansoft premises 
on the Cambridge Techno Park. 

Bruce’s first aims are to expand the 
Tansoft catalogue to cover other 
microcomputers and to establish the 
Oric Atmos in it’s rightful market 
position. The Atmos delivers an 
incomparable price/performance ratio 
along with build quality and reliability 
that are vastly superior. 


THE NEW 
ORIC 1Q164 


After much speculation, Oric has 
announced the pending release of the 
new Oric IQ 164. 

The price has yet to be announced 
and it is expected that A.S.N., France, 
will receive the first supplies. 

Turn to pages 61 & 62 for full details 
of the new machine. 


—— 
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ORIC OPENS 
UP FINLAN 


aw 


Oric Products International has further 
increased its presence in Europe by 
winning orders worth nearly £4 million 
from Finland for its British-made Atmos 
48K microcomputers, peripherals and 
software. 

This follows the recent appointment of 
a new distributor in Finland by Oric 


ATMOS POWE 
BUFFERS 


The NIKE product range of power 
buffers safeguard computers against 
momentary and short duration mains 
failures. They are also effective against 
certain types of mains borne 
interferences. 


NIKE AT is for use with the Oric 


PRODUCTS 


pS 
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Products Export Limited — Comtron 
Finland. 

Comtron has already supplied 1,000 
Atmos micros to the Lohja chain of 
stores and is to provide a further 2,000 
units, plus 250 Oric disc drives, 250 
printers and software for the initial 
contract. 

Reliability and comprehensive 
features were the key reasons for Lohja 
choosing the Atmos, which was 
evaluated in competition with the Acorn 
Electron and the Dragon. 

The latest orders from Europe are the 
result of Oric’s active campaign to tap 
the enormous potential offered by 
European markets for the Atmos. Oric 
has now been the home computer leader 
in France for over a year and last 
summer won $2.75 million orders from 
Germany, Austria and Switzerland. This 
followed favourable reaction to the Oric 
designed ‘German style’ Atmos 
keyboard for German speaking users. 


ATMOS 

Rechargeable nickel cadmium cells 
are kept on floatcharge by the mains 
power pack. When the mains supply is 
lost, the cells take over the task of 
supplying the computer. Over 30 
minutes of back-up is provided. 

More rapid charging of run-down cells 
is achieved by keeping mains power on 
with the computer switched off. 
Manufacturers original power packs 
must be used. 

NIKE SP supports Interface | but not 
microdrives. 

The units include batteries and are 
ready to use. An ON-OFF switch for 
the computer is provided. Two coloured 
LEDs act as status indicators. 

Helpful SA VEing techniques are 
given in the User notes. 


ORIC/IIK 


JOYSTICK 
INTERFACE 


Oric have reached an agreement with 
IJK Software whereby Oric will 
manufacture and sell the interface 
designed by Pennant and promoted by 
IJK. This interface plugs directly into the 
printer port and allows the connection of 
two Atari standard joysticks. Unlike the 
Pase interface the Oric/IJK design does 
not effect the sound in any way. It also 


BACK ISSUES 


If you’ve enjoyed this issue of Oric 
Owner, you may like to avail yourself of 
our back issues service. Some issues are 
sold out completely, but we do have 
limited numbers of issues 7 (April/May 
°84), 8 (June/July 84) and 9 (Oct/Nov 
84). Back issues cost £1.20 each. Make 
cheques or postal orders payable to 
Tansoft Ltd. 


April/May °84 — Practical Machine 
Code II, Pinball, educational software, 
Append/Renumber, Forth, hints, tips 
and much, much more. 


June/July °84 — Dr Paul Johnson 
interviewed, Microdrives on test, sound 
explained, Star Cruiser, Slot Machine, 
Puss in Boots, Yahtzee, plus quickies, 
letters, hints and so on. 


Oct/Nov ’84 — Paul Kaufman 
interviewed, a look at the Oric factory, 
more of Practical Machine Code, a 
comprehensive list of software available 
for the Oric-1/Atmos, as well as 
software and book reviews and the 
regular features. 


allows the games programmer to 
automatically check whether the joystick 
is connected. 


————— | 


All new IJK Software will support this 
interface and all new Tansoft Software 
has been converted to run with this new 
interface. 

In addition Oric have launched their 
own joystick. This has a very high 
quality smooth action and is coloured to 
match the Atmos range. 

The interface is priced at £11.50 and 


the joystick at £12.95. 
nd 


b Verviers, 
pe Mawet, 


Belgium. 


Belgium 

Oric Computerclub Flop@ 
p/a Mathieu Doumen, 
Dennenlaan 7, 

3460 Maasmechelen, 
Belgium. 


Belgium 

T. Grosbois, 
C.U.F.O., 

Rue de la Tourette 1, 
5650 Biesme, 
Belgium. 


As you have all now been told, we ha 
incorporated the Official Oric Club iN 
this magazine. We have had several 
letters from people in the U.K. and frorr 
abroad, asking us {jhe 

various clubs, which we g 

pleased to do. 


If any of yeefeve ktarted up a club 
sad ipa i sfowuersion it, drop us 


dre the contact addresses... 


Befgigm 

Roger Hamblok, 
oeverdijk 9, 
900 Lommel, 
elgium 


0 and 

ydoric, 
Dr. G. Tax, 
Gasthuisring 24, 
5041 DS Tilburg, 
Holland. 


Germany 

Holger Schlueter, 
Lilienthalstrasse 16, 
4460 Nordhorn, 

W. Germany. 


Germany 

21 Engr Computerclub, 
c/o Lepl Beirne J.P., 
7FD Sqn RE, 

21 Engr Regt, 

BFPO 48. 


Poland 

R. Waclawek, 
Mlody Technik, 

PO Box 380, 

PL 00—950 Warsaw 
Poland. 


UK 


Card 


12 T kat th Court, 


Creigia\y, 
Cardiff. 


Hayes, 
Middx., 
UB4 8SW. 
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Draughts 
LJ.K. Software 
Oric-1/Atmos 
£7.50 


JK Software Ltd present... 
FOR THE 48K ORIC-1 


This is a first for the Oric-1/Atmos from 
I.J.K. Software. 


With the cassette you get a small 
booklet containing instructions. You 
have a choice of rules to follow which 
are: no restrictions, must take, must take 
all and must take most. This choice 
appeals to me as it means that the games 
you play are varied and you’re more 
likely to keep playing. 


A record and the time taken for each 
move is displayed at the side of the 
screen and the overall time at the 
bottom, a good idea for those of you 
wanting to increase your thinking speed. 


It can either be played with two 
people or against the computer. If you 
choose the latter you might like to select 
the option you have of making the 
computer make the worst move. 


Well worth investing in, if you like 
board games. 


r aa 


Originality 

Graphics kk 
Addictiveness kok kk 
Value Kk kkk 
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Styx 
No Mans Land 
Oric-1/Atmos 


£8.50 


This is one of a range of titles from the 
new French company No Mans Land. 


The game itself is little more than a 
phoenix variation, though this said it is 
graphically very pretty. The swirling 
aliens above drop bullets and strange 
blobs onto your base at the bottom of 
the screen. If one of the blobs reaches 
the bottom, it lands and wanders about 
on the bottom line, attempting to stab 
you in the back. If you shoot the big 
green bird, all the blobs on the bottom 
disappear. After the first screen comes 
the flashing red aliens, and after that is a 
very pretty red castle to destroy. 


Good, though the graphics and sound 
are, I got tired of the game very quickly. 


Graphics ok kk 

Sound kk 

Addictiveness kk 

Value kkk 
>) 


Quack-A-Jack 
Severn Software 
Oric-1/Atmos 

£6.95 


Red Jack, the famous pirate duck, is 
trapped in the palace dungeons. You 
have to leap from flagstone to flagstone 
to get the Terraducktile before it hatches. 

The graphics are good; Red Jack 
actually looks like a duck and it’s easy to 
tell the difference between things to step 
on and things to avoid. 

You must avoid the cooking-pots, 
which are scattered around the 
flagstones and go for the eggs before the 
coins (the dungeons inhabitants wages!) 
as it’s important that you do stop the 
Terraducktile hatching, otherwise the 
whole screen stands still and all you can 
do is watch yourself die. 

The only problem is unless you hold 
the keys down to move, it takes a long 
time for anything to happen. However, 
once it’s warmed up, it doesn’t move too 
badly. 

It’s not too difficult to gain a high 
score — points are very high when you 
step on the eggs and coins. 

Although it was slow, I quite enjoyed 
this game. It’s certainly a different idea 
and I found it quite addictive. 


Originality kkk 
Graphics kk kk 
Sound kk 
Addictiveness kkk 
Value kkk 


Picture Book 
Softbacks 

Oric-1/Atmos 
£4.95 


Encounter 
Severn Software 
Oric-1/Atmos 
£7.50 


BP EERE 57 - = 
forthe 48K ORIC-1 
and ATMOS 
If you have young children and are on 
the point of pulling your hair out trying 
to find things to keep them occupied 
(and quiet!), then Picture Book is what 
you've been looking for. 

Picture Book is an exciting new way 
of making pictures, it comes with an 
illustrated word list to select the 
drawings. There are 35 words and 
drawings set up in the program and a 
special option allows you to add extra 
words and drawings yourself (this is 
rather tedious). There is room for 
150 words altogether. 

Other options include: saving your 
drawings, turning the sound on and off, 
changing drawings and creating a file to 
store your new drawings. 

A background of a few colours 
appears on the screen and the child is 
then free to fill in the picture, using its 
imagination. There are various 
backgrounds, so it doesn’t get 
monotonous. 

This is the best Oric educational 
software for young children yet and very 
good value. 


Encounter is a classic-style text 
adventure. 

Your task is to find a young girl, who 
has been kidnapped by thugs. Your clue 
is that a knowledge of Chemistry helps — 
I’m afraid that didn’t help me much! 

It is a good idea to make a map as 
you travel, noting what you find and 
where, as you may want to come back to 
it as the adventure progresses. It’s also a 
good way of making sure you don’t keep 
coming back to the same place. 

The time limit is 500 moves. The 
number of moves you make are shown 
after each command typed in. Every 
time you pick something up you use one 
move, which is why I recommended that 
you make a map to pick things up only if 
you really need them. 

There is a very limited vocabulary 
compared with many other text 
adventure games. It doesn’t understand 
‘Look’ which ts usually a useful 
command. 

At £7.50 I feel that it is overpriced 
and would advise you to buy one of the 
better adventures. 


Graphics kk kkk 
Sound * 
Interest k kkk 
Value kkk kk 


Originality kk 
Addictiveness * 
Interest kk 
Value k* 
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Gravitor 

Severn Software 
Oric-1/Atmos 
£7.50 


Story Book 
Softbacks 
Oric-1/Atmos 
£4.95 


DBUG | 
No Man’s Land 
Oric-1/Atmos 
£11.95 


ORIC1 & ATMOS - 48K MICROS 


This game is a straight conversion from 
the arcade game of the same name. It is 
an adaptation on Asteroids, except that 
your ship is near the surface of a planet, 
so Gravity plays an important part. 

Your mission is to destroy a number 
of alien satellites, in three stages, to 
prevent an impending alien takeover in 
various parts of the universe. The three 
stages are Home Base stage, Satellite 
stage and Reactor stage. 

In the first part you steer your ship 
through a tunnel to reach one of four 
circles, representing the different parts of 
the planet surface, once there you 
negotiate past the UFO and Turrets that 
shoot at you to get close to four red 
squares on the land. These you pick up 
using your tractor beam. If you die you 
return to the first section, which can get 
a little tedious. 

There are seven levels of play in which 
sometimes some very delicate handling 
of your craft is required. 

Overall this is worth getting since it is 
one of those ‘just one more go’ type 
games. 


v 
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Story Book can be used in a variety of 
learning situations: helping very young 
children to familiarize themselves with 
words, encouraging older children to 
compose stories and poems and even 
students of a foreign language will find 
this useful for practice and revision. 

There is a short example you can 
load, after the main program, to show 
you how the main program works. It is 
called Proverbs and involves guessing 
the right words and typing them in to 
complete the sentence. A sun smiles if 
you get them right and frowns if they are 
wrong — this part is geared towards 
young children. 

In the main program you are given 
four options, which are: recreate the 
story, alter the story, save the story on 
cassette or have a new story. You then 
have a choice of large or normal text. A 
blank screen appears and when you have 
chosen ink and paper colours, you can 
begin typing. 

Not quite as impressive as Picture 
Book but still a good educational 
program. 


DBUG is a monitor/program debugger, 
designed for writing and debugging 
Machine Code programs. The program, 
when loaded, takes up 6K starting from 
$500. As this is where Basic programs 
are stored, it is not possible to have a 
Basic programs are stored, it is not 
possible to have a Basic program in 
memory whilst using DBUG. This is a 
drawback if you are writing combined 
Basic and Machine Code programs. 

DBUG has a range of commands for 
altering, comparing, displaying, filling 
and copying memory and performing 
other functions. Up to 10 breakpoints 
can be set and there are commands to 
single step a specified number of 
instructions or to step ignoring all jump 
routines. 

Although DBUG provides a good 
range of useful and easy to use 
commands, it lacks a dissassembler 
which is virtually essential for Machine 
Code programming. 

The program is well designed and if it 
had a dissassembler it would be well 
worth buying it, however without this it 
is a bit limiting and you would be better 
off buying one of the monitors which 
does have a dissassembler. 


Originality 

Graphics kk kk 
Sound kok 
Addictiveness kk kk 
Value kkk 
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Flight 401 
Knight Software 
Oric-1/Atmos 


From Knight Software 


Flight 401 from Knight Software is a 
flight simulator. Your task is to take off 
and land at one of a selection of airports. 
The display gives you all the vital 
information, altitude, air speed etc. 
However, the display is updated only 
once every two seconds. This means that 
even taking off is an exasperatingly slow 
process. Once in the air I was once more 
amazed at the appalling response time. 
The aircraft that this was modelled on 
must have the aerodynamic qualities of a 
wardrobe! 

Full flight instructions are included in 
the manual that comes with the tape 
and are also written into the simulator. 
However, this did not really help as it 
took so long to do anything. 

I finally managed to get the plane into 
a steep dive and crash, whereupon the 
computer told me that I had landed with 
the undercarriage up. 

There is an optional joystick control. 
An Atari type joystick with suitable 
interface is recommended. I’m afraid 
I didn’t have the patience to try it 
again with a joystick. 

After playing it once, I had no 
| incentive to go on. 


Originality * 
Graphics kk 
Sound * 
Addictiveness * 
Value * 


The Diabolical Tower 
No Man’s Land 
Oric-1/Atmos 


48K ORIG 1/ATMOS 


The game starts with rather a lengthy 
tune, especially when you find that every 
time you die and want to start up again, 
you have to listen to it before you can go 
on. However, you can then choose 
whether you want sound effects or not. 
You also set a time for the text to be 
screened, so that you don’t find you’re 
waiting for ages for something to 
happen. You can choose whether or not 
to have pictures. This does not mean you 
are entirely without graphics, if you 
choose not to have them, as a floorplan 
appears without any question marks to 
show you where things are. 

Your mission is to find a fabulous 
treasure hidden somewhere in the tower. 
On your way around, you seem to come 
across a lot of shiny objects (which turn 
out to be gold coins) and boxes on tables 
(which usually have keys in them, 
although one I opened was a booby-trap 
and exploded in my face!) 

If you decide to stop or get 
discouraged, the message “Is there 
anyone near you who wants to play?” 
appears, which I found quite amusing. I 
found it impossible to stay alive and I 
recommmend that you have a lot of 
atience if you buy this game. 


Attack of the Cybermen 
I.J.K. Software 
Oric-1/Atmos 

£7.50 


This is IJK’s latest release for the Oric- 
1/ Atmos and is a variation on the 
arcade classic: Cybertron. 

In the 21st Century A.D. the existence 
of life on earth is threatened by the 
alien Cybermen. 

In the game you control a rather 
plump character called Percy. On the 
first screen you are surrounded by what 
I assume are the Cybermen, though they 
look more like sheep to me. You can 
move in four directions, firing all the 
time. The Cybermen close in and a flying 
donut attempts to catch you unawares. 
After this comes an original screen in 
which you try to reach home whilst 
avoiding the blobs thrown at you by a 
column of green men. 

It takes quite a while to master the 
game and even when you have, the 
deadly Bouncer seems to catch you 
unawares. It’s not the sort of game that 
makes you want to give up — quite the 
opposite, I had to keep playing. 

The game supports three different 
joystick interfaces, including the new 
Oric one. 

All in all, an interesting variation on a 
well established idea. 


Originality kkk 
Graphics kkk 
Sound kkk 
Addictiveness 

Value kkk 


Originality 
Graphics 
Sound 
Addictiveness 
Value 
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Add-On Electronics Ltd., 
Units 2, 3, 4, 

Shire Hill Ind. Est., 
Saffron Walden, 

Essex. 


Arcadia Software, 
4 Sunningdale Ave, 
Swansea. 


Arctic Computing Ltd., 
Main Street, 
Brandes-Burton, 
Driffield, 

Yorks. 

Basic Concepts, 
PO Box 46, 


Leatherhead, 
Surrey. 


Bugbyte, 
100 The Albany, 
Old Hall St., 
Liverpool. 


Byteland, 

PO Box 57, 
Sawbridgeworth, 
Herts. 


CDS 
Silver House, 
Silver St., 

Doncaster. 


Darkstar (Superior), 
2 Regent Crt., 
Ambhurst Park, 
London N16 5LP. 


Dormere Software, 
Belgreen House, 
Green St., 
Macclesfield, 
Cheshire. 


Durell Software, 
Castle Lodge, 
Castle Green, 
Taunton. 


Epsilon Software, 
10 Southern Road, 
West End, 
Southampton. 


Express Software, 
City Gate, 

25 Moat Lane, 
Birmingham. 
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Haresoft Ltd., 
PO Box 365, 
London NWI. 


Honeyfold Software, 
Standfast House, 
Bath Place, 

High St. Barnet 
London, EN5 IED. 


L.J.K., 

Unit 3C, Moorfields, 
Moor Park Ave., 
Bispham, 
Blackpool. 


IMF, 

143 Uxbridge Road, 
Ealing, 

London, 

W13 9AV. 


Level 9 Computing, 
229 Harpenden Rd., 
High Wycombe, 
Bucks. 


MC Lothlorien, 
56a Park Lane, 
Poynton, 
Cheshire. 


Melbourne House, 
Castle Yard House, 
Castle Yard, 
Richmond, 

Surrey. 


Mellowsoft, 
23 Dalford Court, 
Hollinswood, 
Telford, 
Shropshire. 


Mercury Software, 
PO Box 21, 
Darwen, 

Lancs. 


Mr Micro Ltd., 
69 Partington Lane, 
Swinton, 

Manchester. 


Microdeal Ltd., 
41 Truro Rd., 
St Austell, 
Cornwall. 


In the last issue we printed a long list of software available for 
the Oric-1 and Atmos; here are the addresses of most of the 
software houses. 


Mikro-Gen, 
1 Devonshire Cottages, 
London Rd., 
Bracknell, 

Berks. 


Micrograf Ltd., 
PO Box 17, 
Bracknell, 
Berks. 


M.C.P., 
13 High St., 
Clydach, 
Swansea. 


Nectarine, 
837 Yeovil Rd., 
Slough, 

Berks. 


Ocean Software, 
Ralli Building, 
Stanley St., 
Manchester. 


Peach Computers Ltd., 
192 Greenock Rd., 
Largs, 

Ayrshire. 


Peaksoft, 

48 Queen St., 
Balderton, 
Newark, 
Notts. 


P.S.S., 
452 Stoney Stanton Rd., 
Coventry. 


Quark Data, 
PO Box 61, 
Swindon, 
Wilts. 


Q.E.D. Systems, 
Liver House, 

96 Bold St., 
Liverpool. 


Quicksilva, 

Palmerston Park House, 
13 Palmerston Rd., 
Southampton, 

Hants. 


R & R Software Ltd., 
5 Russell St., 
Gloucester. 


Romik Software, 
272 Argyll Ave., 
Slough, 

Berks. 


Sector 7 Software, 
PO Box 8, 
Newton Abbot, 
Devon. 


Severn Software, 
15 High St., 
Lydney, 
Gloucestershire. 


Sigma Soft, 

13 Westmorland Terr., 
Holmes Chapel, 
Cheshire. 


Softbacks, 
PO Box 257, 
Watford, 
Herts. 


Softek International Ltd., 
12—13 Henrietta St., 
Covent Garden, 

London WC2. 


Tansoft Ltd., 
Units | & 2, 
Techno Park, 
Newmarket Rd., 
Cambridge. 


Taskset Ltd., 
13 High St., 
Bridlington, 
Yorks. 


Touchstone, 

61 Highfield Rd., 
Saxilby, 

Lincoln. 


Virgin Games, 
1—63 Portobello Rd., 
London W11. 


Wintersoft, 
30 Uplands Park Rd., 
Enfield, 
Middx. 


ADVANCED 
USER 
GUIDE 


Fully commented ROM disassembly 
Using routines in the ROM 
Programming the sound chip 
Intercepting interrupts 

Interfacing details 

Complete circuit diagram 

Project to build a Real-Time-Clock 


eH eH HOH 


ADDER 


Applicable to both the ORIC-1 and ATMOS, this book provides 
extensive information about the Oric computers. Written by 
Leycester Whewell of Cambridge University, the Advanced User 
Guide contains a Complete Commented ROM Disassembly (for 
the Atmos but with cross references to the Oric-1) plus lots of 
information on the sound chip, 6502, ULA, BASIC variable 
storage, intercepting interrupts, the disc system and a complete 
circuit diagram. Full interfacing details including a project to build 
a Real-Time-Clock are also included. 


ISBN 0 947929 O1 0, 288 pp, £8.95 nett 


Available from larger retail outlets or by mail order from:- 
ADDER PUBLISHING Limited, P.O. BOX 148, CAMBRIDGE, 
CBI 2EQ 

Please send cheque or PO for £10.45 (inc. p&p). 


Softbacks 


Educational software . 


Story Book - a challenging game that develops 
reading skills. Suitable for any level from early 
reader onwards. You choose the text, the game is 
to reconstruct it by guessing the words. £4.95 


Picture Book ~- A colourful spelling game for 
young children. Build up pictures by typing words 
and seeing the objects appear "by magic". £4.95 


Personal finance . 


Account Book- the money management program. 
Budgeting and record keeping by automatic double 
entry. Produces full reports on screen or printer. 
Easy to use and menu driven throughout. £12.50 


For further details phone (0923) 53482 or write to: 
Softbacks, FREEPOST, Watford, WD1 8FP. 

No stamp required if posted in the U.K. 

Please state model of computer when ordering. 
DEDUCT 50p from total for more than one program. 


For the ORIC-1 and ATMOS 


MAKE MONEY 


Competent at assembly language 
programming? 


We need software converting from other micros 
to the Atmos and vice versa. 

Our fees won’t make you a Lotus driving 
whizz kid, but you will make some money from 
your hobby. 


We are also looking for original 
programs for any machine. 


Adrian Rushmore, 
Tansoft Ltd., 

Unit 1, 

Techno Park, 
Newmarket Road, 
Cambridge, CB5 8PB 
Tel: (02205) 2261/2/3/4 


Contact: 
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They are quite loud when run, so if you’ve got any relatives 
coming round over Christmas that you want to keep quiet. 
have it ready! 

The five carols are: “O Come All Ye Faithfull”, “O Little 
Town Of Bethlehem”, ““The Coventry Carol’, “While 
Shepherds Watched” and “Once In Royal David’s City”, so 
you shouldn’t have any trouble with the words if you decide 
to sing along. 


The program detailed below will provide forecasts of football 
league matches (1984-85 season) from the four English 
Divisions. 

Forecasts are made on the basis of team form information 
which is keyed in by the user. Empahsis has been placed on 
making the program quick and easy to use, the design 
contains the following features: 


1. A menu driven system with four choices. 


i) Updating the form data 

ii) Obtaining the forecasts 

iii) Saving updated form 

iv) Terminate program and reloading notes 


y 


7G 


One may argue that if everybody is using the same system 
then they are all getting the same forecasts, however, the 
program is easily modified to suit individual tastes. There are 
two ways of doing this:- 


1. The values allotted for results may be adjusted, see lines 
1460 to 1510. 
An away win (AW) might be worth more than ‘5’ or a 
home draw (HD) more than ‘1’, etc. 
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Christmas Carols 


This program is designed to get you all in the Christmas 
spirit. Mr Thom has written five different carols in three part 
harmony which will run on any Oric. 


—_— 


\f 


FF 


mollister 


2. The window for setting a draw may be widened or shifted, 
see lines 1980 to 2010. 

W holds the form data of the home team (Page 4 
addresses hold ‘85’ to start with, 75 is deducted to give a 
working base of 10. This prevents going over the 
maximum value of 255 for an address in the later stages of 
the season, but keeps away from zero, where dividing 
would be invalid). 


X and Y set a value for ‘Home advantage’ and the 
lower edge of the ‘Draw’ window. 

Z sets the upper edge of the ‘Draw’ window, any value 
above Z represents an ‘Away’. 

In line 1990 dividing W by a number larger or smaller 
than 10 will shift the ‘Draw’ window down or up 
respectively. 

In line 2010 the ‘Draw’ window may be narrowed or 
widened by decreasing or increasing the number of X’s 
(X’s can be multiplied instead of adding). 


A typical sequence of actions for using the program is 
shown below. 


Load the Form Data tape. 

Type NEW and Return. 

Load the Main program tape. 

Run the program, the menu will appear. 

Select and use the Updating Form routine. 
Select and use the Obtaining Forecasts routine. 
Select and use the Save Updated Data routine. 
Select End routine. 
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NOTE: Form Data is stored in page 4 addresses #0401 to 
#045C (92 addresses). This is done automatically 
under program control in choice 3 of the menu. 


The program can be modified to cover Scottish or 
Australian leagues by adjusting the team names in the data 
statements and the number and length of the divisions. 

For use in future seasons data statements must be adjusted 
to suit promotion and relegation changes. 

The program was written on an ORIC-1 48K machine and 
uses 15.9K of memory. 


= 1ClLEASIKIETCI-I PCOCPER 


Etch-A-Sketch is a computer based equivalent of the well 
known drawing pad. One or two enhancements have been 
added to make it in to a more versatile drawing aid, i.e. 
memory screen, ‘rubber banding’, m/c fill routine, etc. . . 


A ring of keys are used to control the position of the 
graphics cursor on the screen. Details are given from within 
the program for direction of movement, but the keys used are 
OP|K°,.and/ enabling eight directions of cursor 
movement. The X and Y positions of the cursor are given at 
the bottom of the screen. 


The ten numeric keys are used to select different modes as 
follows. .. 


KEY | UNPLOT 
Cursor changes to background colour. The pixel that the 
cursor is positioned on is set to background colour. 


KEY 2 PLOT 
Cursor changes to foreground colour. The pixel that the 
cursor Is positioned on is set to foreground colour. 


KEY 3 MOVE 
Cursor flashes. Pixels are not affected. 
KEY 4 DRAW 
(‘Rubber Banding’). Line of pixels flash, between current 
cursor position and last two cursor positions, in preparation 
for ‘Fixing’ in foreground colour. See ‘Mark’ and ‘Fix’. 
KEY 5 ERASE 
(‘Rubber Banding’). Line of pixels flash, between current 
cursor position and last two cursor positions, in preparation 
for ‘fixing’ in background colour. See ‘Mark’ and ‘Fix’. 
KEY 6 COLOUR 
Plots attribute at current cursor position (cursor stops 
flashing in ‘move’ mode when positioned on an attribute). 
Attribute selected by pressing key of relevant escape code. 
See Appendix 2, Atmos manual page 232. 

e.g. To plot green ink at current cursor position, press ‘6’ 


PITFALA 


This program is a variation on the Donkey Kong theme. It 
involves climbing ladders and jumping over obstacles. 


You are trying to escape from a cave structure by climbing 
up rope ladders left by previous expeditions. Rock falls cause 
bolders to roll down the passages unless you jump over them. 
You can move at will up and down the various levels 
represented by different colours from the pit to the outside 
world. 
It will only run on the Oric-1 48K and the controls are: 


«= left |= down 
_5= right t= up 
Space Bar = Jump 


to select colour mode, then ‘B’ to select green ink. To plot 
inverse attributes press ‘6’ twice before selecting attribute. 


KEY 7 FILL 

m/c fill routine to fill enclosed area with foreground colour, 
starting at the current cursor position. Ensure area is 
completely surrounded otherwise the fill routine will overflow 
onto the rest of the screen. The routine fills all but the most 
complicated shapes and takes about 15 seconds. 

KEY 8 CIRCLE 

Draws a circle around current cursor position in foreground 
colour. Expects 2 digit number to determine radius of the 
circle (01-99) in pixels. 

KEY 9 SAVE 

Saves HIRES screen to tape at fast speed. 

KEY 9 LOAD 

Loads HIRES screen from tape at fast speed. 


Two more keys are used in the draw and erase modes. 
These are... 


KEY ‘ESC’ MARKMarks current cursor position. 


“SPACE BAR’ FIX 
Fixes line between current cursor position and last two 
marked position. 


In addition, three keys are used to provide a memory 
function. These are... 


KEY ‘— COPY 
Transfers hires screen to memory. 
Key ‘=’ SWOP 


Exchanges HIRES screen with memory 


KEY* > CLEAR 
Clears memory 


also... 
*‘DEL’ 
Clears the HIRES screen. 


PTumer 
bo / ie 


A 
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It’s past midnight and you are feeling hungry. You must 
sneak around the house eating as much food as you can 
without waking up Mum and Dad. If you make too much 
noise they will wake up and you will be caught. Be careful not 
to stand on any creaky floorboards, and avoid the cat 
because it will “mieow” if you touch it! 


You have £5 pocket money to begin with, and you lose £1 
each time you are caught, as punishment! You start off on 
the ground floor and must make your way back upstairs to 
bed before the alarm goes off in the morning. There are 
various types of food scattered through the house and you 
will gain more points for eating bananas and pears than for 
eating biscuits etc. 


When you get back to bed, a bonus is added to your score 
depending on the time left. They you can try again the next 
night, which is more difficult since there are more creaky 
floorboards and the cats move faster. However there is more 
food available to be eaten! 


The game ends when you have lost all your pocket money, 
and if you do well enough you can enter your name in the hi- 
score table. 


The game will run on the Oric-1 and Atmos. 


——— 
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mionight Feast 


For years now the beans of Hinez have suffered untold 
cruelties at the hands of the human people, but now the time 
for their revenge has come. They have built giant nuclear 
driven bean tins and have flown to earth with the baking of 
humans in their minds. The beans jump from the cans in a 
Kamikaze style and you have to splat them before you are 
splatted. 


From time to time the super can will fly across the screen 
dropping a continuous flow of beans. 


A bean hit gets you 2 points and a super can hit is worth 
20. Use: 


LET CURSO tc cise setad scales nd visicomtisn aavasediediarancinseg move left 
OWI CUTSOF jai asks neateneosierns sem uate deneumnssoninnes move right 
FUNG FP see seems suesh erties sates sreenisentinaaranawvas se fire phasor 


This game, written by D. Peat, will only run on the Atmos, 


| as it uses specialized ROM routines. It comes as three 
) separate programs. Type in the first program and run it 


saving the data on cassette, do the same for the second and 
third programs then to run it type, CLOAD*” :CLOAD“”: 
CLOAD*“” 


O.RETO 


This version of Cribb is very nicely presented and slightly 
different to the one I’m used to playing. The instructions and 
details of point scoring are very detailed though, so you 
should soon come to terms with the game. 


It opens with a burst of music and you can choose if you 
want the computer to ping for pegging or not. I’d advise 
against it if you plan to play for a while — it does tend to get 
on your nerves. 


Cribbage will run on both Oric-1 and Atmos machines. 
There are five levels of play in which you play against the 
computer. Surprisingly enough, the computer doesn’t always 
win, as might be expected. 


Don’t be put off by the length of the listing — it’s worth it! 


Number |: Auto line number 


Most computers have Auto Line Numbering available in 
toolkits if not provided in the firmware. The poor old Atmos 
seems to have been left out in the cold yet again. At first look 
the program should be easy enough to write. But the V1.1 
ROM conspires against any attempt to use its main loop that 
looks after getting keys, putting the ASCII code of the 
keypress in the input buffer, tokenising the input and slotting 
program lines into the correct place in the program ends in an 
absolute jump back to a position in the ROM thereby 
‘loosing’ any controlling program. There are several ways of 
overcoming this difficulty. I have gone for the most straight- 
forward — the relevant section of the ROM program is copied 
down into RAM where it can be altered to fit in with what we 
want it to do. Lines 100 to 155 of the BASIC listing do just 
this. The remainder of the program reads the original part 
from the data statements at 10000 onwards. A complete 


Atmos Basic Ufilifies 


DSinfield 


Assembler listing is also given for those interested in how it 
all works. I think the annotations make it all quite clear. 


How to use the utility 


The BASIC should be entered, CSAVEd (just in case), 
thoroughly checked and RUN. I have included a checksum 
to detect errors in the DATA statements. 


Assuming all is well the BASIC can be NEWed and the 
code from #954C to #96FF can be CSAVEd for future use. 
The code is vectored to the ! command and the format of the 
instruction is: 


! LLLLL,WI 


where the L’s are up to five digits of starting line number and 
the I’s are up to three digits of increment. There is substantial 
error checking but entering a line number out of range (more 
than 63999) is possible and it won’t be rejected until return is 
pressed at the end of the line when a Syntax Error will be 
generated. Escaping from Auto is by using control C. 


Beware of ‘skipping’ lines using the return key. It will look 
to the machine as though an empty line has been entered and 
if there was a line with that number it will be deleted. It would 
have been fairly easy to screen for empty lines but I use the 
program to block delete parts of programs. 


The BASIC protects the program (HIMEM =945B) and 
sets up the ! vector (DOK E=2F5,=945C). If the code is 
loaded direct from tape, which is much quicker than via the 
BASIC, it is vital that these two instructions are entered. The 
code is located as high as my assembler would allow and as it 
allows plenty of room for both BASIC and variables I 
haven’t relocated it right to the top. If you want to move it the 
assembler listing will help you pick out the absolute jumps 
that will need changing. 
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Number 2: Creation of Data Statements 


Although it is easier on the Atmos to load blocks of memory 
on the Atmos than it is on the Oric-1 it is often more 
convenient to have machine code routines, character sets and 
even text screens stored as data statements within a BASIC 
program. The routine given here converts a given block of 
memory into DATA statements for use in BASIC programs. 
To the computer it appears that the data statements have 
been entered in the normal way via the keyboard and the 
result is a collection of DATA statements holding 
hexadecimal numbers. The controlling program NEWS itself 
so all that is left are the DATA statements it creates. 


The BASIC 


The BASIC program first of all sets up the code. Lines 110 to 
170 are from the Auto line number program. It may have 
seemed more sensible to combine the routines and then this 
copying down would only have to have been tackled once for 
two utilities. In fact the programs will rarely if ever be used 
together so I have made them totally independent of one 
another. Lines 180 to 230 READ and POKE the data for the 
routines that generate the line numbers, put the required bits 
in the input buffer etc. The remainder of the BASIC allow 
you to tailor the machine code to get different blocks of code 
and put them into the line numbers to suit your programs. 
The code at =4000 onwards can be used independantly of 
the BASIC but the start, finish line number and increment 
parameters have to be set up using the following pokes before 
calling the code: 

The starting line number as ASCII codes is held in =404B to 
=404F 

The increment goes into —4051 to =4053 as the digits of the 
increment 

The Start of the block of code is doked into =4062 

The end address + | of the code is doked into =4064 
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Calling the routine without this initialisation creates a line 
number 0. 


The first thing I do with machine code routines I see in 
magazines is enter and dissassemble them to see if I could 
have done it any better. To save anyone like me the effort I 
have included a disassembled listing. 


Number 3: Interrupt counter 


The Atmos generates interrupts every 100th second or so and 
this is when it usually flashes the cursor and looks for key 
presses. The return from the interrupt is vectored via page 
two and by diverting the program at this point a routine can 
be executed at regular intervals. This program is almost a 
clock but it seems that the interrupts aren’t exactly 100th 
second apart because the clock runs a bit slow. 

The machine code consists of two programs: an 
initialisation routine to set up and zero the clock and the 
program called at each interrupt that updates the clock. 


Getting it started 


I have included an assembly listing as well as the program 
reduced to data statements with a BASIC loader. You can 
use whichever you like to get the program into memory. 
There are no absolute jumps or calls to subroutines so where 
the program is positioned in memory is up to you. Whichever 
means of getting the program into memory you use, the code 
should then be saved. 

When the code is in the clock has to be initialised by 
calling the set up routine. The exact address for the call will 
depend where in memory you have located the code but the 
way | have set it up the following instructions apply: 


Run program 

Initialise or set to zero: CALL#942C 

Start clock: DOKE +:24B,4+942C :POKE#-24A,++4C 
Stop clock: POKE+#+24A,+40 

For subsequent starts only the POKE is required. 


What to use it for 


Because the counter runs whatever BASIC is doing it can be 
useful when trying to optimise your BASIC programs for 
speed. It can also be used in BASIC programs with time 
limits. The values can be PEEKed off the top of the screen, 
handled using the string handling etc. Although the clock is 
inaccurate it is useable over short periods (up to about 15 
mins) as a 100th second stopwatch. It is entirely feasible to 
adjust the timing to make it absolutely accurate but I'll let 
you work that one out. 


If you want to use the clock but don’t want the numbers 
displayed POKE=BB81,0 will blank the display of the 
numbers. 


MIDNIGHT FEAST 
Fumble your way through the dark to the food without 
tripping over the cat. — Page 20 


; 


CRIBBAGE 


If you enjoy a good game of Cribb, this version is certainly 
worth typing in. — Page 32 


REVENGE OF THE BEANS 
The beans from Hinez have set out to destroy the Universe. 
Can you stop them? — Page 24 


PITFALL 
This game is written on the Donkey Kong theme. Climb the 
ropes and survive the falling rocks. — Page 43 


i. fp =a 
CHRISTMAS CAROLS 
“Christmas is coming, the geese are getting fat”, why not sing 


along to these five well known carols? — Page 27 


= 


FOOTBALL POOLS 


Your Oric will help you to make those vital decisions that 
could win you a fortune on the Football Pools. — Page 45 


ATMOS BASIC UTILITIES 


Three useful utility programs for your Atmos. — Page 30 


ETCH-A-SKETCH 


Test your artistic skills with this program. — Page 48 


—— OO 
HOW TO SUBMIT PROGRAMS 


We are always delighted to see your programs for possible 
publication in Oric Owner. If the program is less than 50 lines 
long, we will probably consider it a Quickie. 

As we are kept busy putting the magazine together, we 
don’t have time to type in long programs. If you are sending 
in a long program then, please send it on cassette. To aid 
correct loading, we would advise CSAVEing two listings, one 
at slow data transfer speed. 

We have our own printers, to give a printout suitable for 
use in the magazine. It is therefore not essential that you send 


a listing for BASIC programs. We must have listings for 
Machine Code programs though. 

If you can include any details on special routines in your 
programs, or a brief summary of how they run, it would be 
helpful. 

Finally, unless you include a stamped, self addressed 
envelope, we cannot return any submitted programs, due to 
the number we receive each week. Make sure you have a 
copy of your program at home, or enclose a s.a.e. if you want 
the cassette returned. 
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GRAB:HIMEM #B3FF:POKE #26A, 18 97 3 

228 REM move man 

REM PROGRAM =: Midnight Feast 279 3 

REM AUTHOR =: David Reid 23@ IFNS=79STHENNX=0X :NY=OY :NS=OS :NH=0 
REM MACHINE : Oric-1 or Atmos 


24@ TS=SCRNCOX,0Y) :TH=SCRNCOX,O0Y-1) 
CLS:PAPER @:INK 6 25@ PLOTOX,0Y,0S:PLOTOX,0Y-1,;90H 
PRINTCHR$C28)"Storing data..." 26@ PLOTNX,NY,1TS+2:PLOTNX,NY-1, TH+2 
18 GOSUB 28088 ’Initialize values 27@ OX=NX :OY=NY 
2@ GOSUB 30@@ ’User graphics 2828 IFNH<83STHEN332 
3@ GOSUB 3208 ’Store machine code 287 : 
4Q GOSUB 2780 ’Hi-score table 288 REM eat some food 2 
5Q@ GOSUB 2808 ’Reset values 289 : 
6@ GOSUB 2190 ’Print title screen 298 S=S+CNH-883*2@ :NS=32 :NH=32 
7Q@ GOSUB 3588 ’Play tune 388 PLOT 9,2,STR$(S):PLOT 38,26, CHRSC 
86 GOSUB 2302 °Draw house 6)+" yum M 
98 GOSUB 25@@ ’Draw food 318 FOR I=7@ TO 18 STEP -5S:SOUND 1,1, 
10@@ DOKE CLOCK, 19@0@:C=0 ’ start cloc 6:SOUND 2,172,7:PLAY3,9@,1,1900 
328 NEXT I:PLAY @,9,9,@:PLOT 308,26,0 
1@5 PLOTOX,O0Y,"J":PLOTOX,O0Y-1, "1" 332 IF OK THEN 440 
1Q@? : 340 IF NS>S4 THEN 1980 *? reached bed 
1Q@8 REM the main loop 347 : 
109 : 348 REM you’ve hit something 
118 REPEAT 349 : 
12@ IF NOT JU THEN 132 35@ IF FL=83 THEN 408 ’? creaky floor 
125 K$=KEY$ s=NX=OX-1-RK2:NY=OY+1=GOTO 355 IF FL>94 THEN 1908 * new frame 
18@ 368 PLOT 38,26,CHRSCE3+"mieow?d " 
12? : 37@ FOR I=18@ TO 25@ STEP 15:SOUND 1, 
128 REM what key is being pressed ? I1,8:PLAY 1,0,1,1@0:NEXTI 
129 : 388 FOR ]=258@ TO 6@ STEP-8 :SOUND 1, 
13@ K=ASCCKEY$+" "J :POKE KE,4 I,8:PLAY 1,0,3;1@:NEXTI 
135 IFK<>32THENSOUND1,OYX*3,;6:PLAY1,@,; 390 PLAY @,98,8,0: GOTO 3780 ’ caught 
i, 1:PLAY@,0,9,@ 400 PLOT 30,26,CHR$C6)+"creaky " 
14@ Nx=0X+CK=8)-CK=19) 41@ FOR [=588 TO 200 STEP-1@:SOUND 1, 
15@ IF K<>1@THEN16@ 1,1@:PLAY 1,8,1,1890 
152 PLOT Ox,0Y,74:PLOT OxX,O0Y-1,;,73 42@ PLAY @,@,0,Q0:NEXT I 
154 IF R THEN 200 ” facing right 438 GOTO 37288 
156 R=TRUE :GOT0449 437? : 
1628 IFK<>8THENI7@ 438 REM ok, update clock and counter 
162 PLOT OX,0Y,68:PLOT OxX,O0Y-1,67 439 : 
164 IF NOT R THEN 288 44@ T*=INTCDEEKCCLOCK) 71090) 
166 R=FALSE :GOTO44a 450° IFT*4>=INTCTJTHENS5@ 
178 IFK<>11THEN 440 ° update clock 460 T=T%:PLOT3@,2,STR$(TI+" " 
175 JU=TRUE =NX=O0X-1-RX2:NY=OY-1:S=S+t5 470 IFT>1@THENSS@ 
=PLOTS,2,STR$(S) 482 INK6 
18@ PLOTOX, OY,66-RxX6 :PLOTOX, OY-1,65-R 490 IFT>@THENS5S@ 
x6 988 PLOT3@,26,CHR#¢CB6I)+"rrringg":INK4 
137 3 910 FORI=1 TO 38:PLAY @,8;,08,@ 
198 REM check new position 52Q@ FORJ=1TOS:NEXT J:PING: NEXT I 
lag = 53@ GOTO 3788 ’? caught you 
286 OS=NS :OH=NH 547: 
210 NS=SCRNCNX,NY2) =NH=SCRNCONX,NY-1) :F 548 REM updated ok 
L=SCRNCNX,;NY+1) 549: 
215 JU=CCFL=32)0RCFL=770RCFL=78) J 55@ C=C+1:IFC<S5-NTHEN 688 
220 OK=CONS<77 ANDCNS<>?78) ANDCFL<>83 960 C=4:CALL #4@0:REM move the cats 
JANDCNS<935)ANDCFL<95) 3 57@ IFCCSCRNCNX,;NYJ=77I0RCSCRNONX,NY3 


20 Orc Owner 


MMUMOA 


vt 


=72) JTHENNS=SCRNCNX, NY) :GOTO368 
60@ UNTIL FALSE 

897 : 
1898 
18399 
308 
NCT$) 
1918 
1929 


REM new frame 


T#="123456789ABCD&1&D&R1IRR" 
>TE=1: OC=4 

GOSUB 354@:INK 4:BO=TX1@xXN 
S=S+BO:PLOTS, 2, STR$(S) 
1938 N=N+1t:PLOT 28,2,STR$(N) 
34@ PLOT 15,14, CHR$(3)+CHR$(8)+"BONU 
+STR$CBOJ+CHR$(9I+CHRS(4) 
35@ IF INTCON/“?7)=N72? THEN M=M+1:PLOT 
19,26,STR$(MJ+", 20" :PING 

1968 PLOT OX,0Y,NS:PLOT OX,0Y-1,NH 
197@ GOSUB 2010 ’ reset 
1988 GOSUB 35@@ ° play tune 
19938 GOSUB 2680 ° floorboards 
1992 PULL 
1995 GOTO 328 °? 
1337 
1998 
13939 
2008 
2018 
2028 
2039 
2048 
2858 
2068 
2072 
2088 
20398 
2097 
2098 
2099 
2106 CLS:PAPER @:INK 6 

2118 AS=CHR$C1GI+"Midnight Feast" 
i 11,1,A$:PLOT 11,2,A$ 

212@ PLOT 13,4, CHR#C3)+"By 
213@ PLOT 18,6, CHR$C4)+CHR$ 
yright 1984" 

214@ FOR I1=9 TO 13 STEP 2:P 
PLOT 4,1,8:PLOT 1,;1,3 

215@ PLOT 22,1,9:PLOT 24,1,8:PLOT 5,1 
el=7S8PLDT 2lals3 

216@ PLOT 25,1,1-7: NEXT I 
217@ PLOT 6,9, "biscuit 
39,89 
2186 PLOT 6,11, 
511,98 
219@ PLOT 6,13; 
313,91 
2208 PLOT 26,9, 
3;9;92 

2218 PLOT 26,11, “banana 


*LT=LE 


Su 


values 


Frame 


play this 


REM initialize values 


S=@: 

T=99 
OX=8 :OY=23 :NX=OX :NY=OY 

OS=32 :NS=OS :NH=O0S :TS=0S : TH=0S 
JU=FALSE :R=TRUE :OK=TRUE 

FL=79 :K=ASCCKEY$+" ") 

REM constants 
CLOCK=#276 ° 

KEYTM=#20E ’ 

RETURN 


N=12M=5 


internal clock 
key repeat timer 


REM print title screen 


>PLO 


D.Reid" 
CS36)+" 


Cop 


LOT 2,1,9: 


20": 


“cheese 40": 


“cherries 60": 


“cocoa BOQ": 


100": 


i 


FEAS] 


3,11,93 

2228 PLOT 26,13, 
3,13,94 
2230 PLOT 
2248 PLOT 
LER 

2258 PLOT 
RIGHT" 
2260 PLOT 
MP" 
227@ PLOT 4,25,CHR$C12)+"Press space 
> to start game .." 

2280 K$=KEY$:REPEAT :RN=RNDC1):UNTIL K 
Ege" 0 

2285 PLOT 4,25,@ 

2298 RETURN 

2297 = 
2298 
2299 
23208 
2318 


"ear 12@":PLOT 2 
14,16, CHR$C13+"CONTROLS" 

18,18,CHR#¢C3I+"left arrow 
18,20, CHR$C5)+"down arrow 


12,;22,CHR$¢(6)+"up arrow JU 


REM draw house 


CLS:PAPER @:INK @ 

PLOT 4,26,CHR$(C6)+"Just a sec 
2320 FL¢="PPPP": FOR I=@ TO 24 

2330 PLOT 2,1,9:FL$=FL$+"P":INEXT ] 
234@ FOR I=5 TO 37:PLOT 1,24,79:PLOT 
1,4,8@:NEXT I 

2358 GOSUB 2688 ° draw floorboards 
2355 REPEAT :CALL#4@0 :UNTILCPEEKC#4AB) 
=#17) :CALL#40@ 

2368 FOR I=9 TO 33:PLOT 1,8,86:NEXT I 
2370 FOR I=@ TO 4: PLOT 8-I,1,84:PLOT 
34+1I,1,85 

2380 PLOT 36-1,9+1,81:PLOT 6+1,14+1,8 
2:PLOT 36-1,19+1,81 

2398 PLOT 5,4+1,79:PLOT 37,4+1,79:PLO 
T 3;9+I579 

240@ PLOT 37,9+1,79:PLOT 5,144+1,79:PL 
OT 37,14+1,79 

2418 PLOY 5,19+1,79:PLOT 37,19+1,79: 
NEXT I 

2420 PLOT 34,;1,9:PLOT 34,2,9%P 
»8:PLOT 8,2,8:PLOT 35,2,4 

243@ PLOT 6,7,95:PLOT 6,8,96:PLOT 7,8 
»37:PLOT 8,8,97:PLOT 9,8,98 ”° bed 
2440 FOR I=4 TO 22 STEP 5:PLOT 3, 
6 

245@ PLOT 3,1+2,3:PLOT 3,1+3,5 
s1+4,1: NEXT I 

246@ INK 4:PLOT 9,1, 

Time" 

247@ PLOTS, 26, "Pocket Money 
32,STR$CS):PLOT 20,2,STRS(N) 
248@ PLOT 38,2,STR$(T}:PLOT19, 26,STR$ 
C(M)+". aa" 

2498 RETURN 

2497 : 


LOT 8; 1 


Iti, 
-PLOT 3 
“S¢ore 


Night 


_sPLOT 8 


Oric Owner 


21 


Muon FEAST 


2498 REM draw food 2878 PLOT12,2%,STR$CHICIJ):PLOT12,2,4J 
2499 : 2880 PLOT1@,2,"%>":PLO721,2,HI$C1} 
2508 FOR I=12 TO 30:PLOT I,6,32:PLOT 2890 NEXT I 

I,11i1,32 2895 RETURN 

2018 PLOT 1,16,322PLOT Is21;32:NEXT I 2897 : 

2528 FOR !=1 TO NxX4+iS 2898 REM enter new hi-score 

2538 R1=INTCRNDC1)X18+12) :R2=INTCRNDC 2899 : 

23I*4)*5+6 2900 PLOT6,22,CHR$(6)+"Please enter y 
254@ IFCCSCRNCR1-1,;R23>32)0RCSCRNCRI+ vuT name" 

1,R2)>323) THEN 2538 2918 FORI=!1TO23:PRINT:NEXT I 

25590 PLOT R1,R2, INTCRNDC1)X6)+89 2920 K$=KEY$: POKE #26A,3 :PRINTCHRS$SE 
256@ SOUND1,R1+R2,9:PLAY1,0,1,1@ 28) 

2578 PLAY @,80,8,0: NEXT I 293@ INPUT N$ 

2588 GARBAGE=FREC""} 294@ PRINTCHREC2B0ICHRSCIAICHKHRSC3GICHR 
2598 RETURN $(6) 

2597 : 2950 IF LENCN$)>16THENN$=LEFTS$CN$, 16) 
2598 REM draw fioorboards 2968 HIC8)J=S:HI$(8)=N$ :SWAP=2758 

2599 + 2970 FOR I=? T0 1 STEP-1 

2600 PLOT 6,19,FL¢$:PLOT 8,14,FL$:PLOT 2988 IF HICIJ<HICI+1J THEN GOSUB SWAP 
6,9,FL$ 2998 NEXT I 

2618 PLOT 7,24,83:PLOT 7,19,83:PLOT 3 29395 GOTO 2800 ’ display new table 
5,24,83:PLOT 35,14,83 2997 : 

262@ FOR J=1 TO NxX2+6 29398 REM user defined graphics 

263@ R1=IN7CRNOC1)*18)+12:R2=INTCRNDC 2993 : 

1 I*X3IX5+9 3808 FOR I=65 TO 938 

2640 IFCCSCRNCR1I-1,R2)>8@)ORCSCRNORI+ 3818 :READ D$¢ 


1,R2)>80)) THEN 2638 3020 :FOR J=1 TO 15 STEP 2 
265@ PLOT R1,R2,83 3O30 : VU=VALC"H'+1ID$CD$,J,2)) 
2668 NEXT I 3640 : P=4B800+1x8+(J-1)72 


2670 RETURN 3@5@ : POKE P,V 

2697 : 3868 :NEXT J 

2698 REM set up hi-scores 3878 NEXT I 

2699 : 388@ RETURN 

2700 DIM HI(8),HI$(8) 3990 : 

2718 FOR I=1 TO 8 3188 DATA @68F 173F@FQ3068C 
2720 sHICIJ=C11-I}k20Q:HISCII="Oric" 3181 DATA 261F8505041C1331 
2738 NEX7 I 3102 DATA G60F i /73FQFA3QE@2 
274@ RETURN 3183 DATA @78B13828606054D 
2747 : 3184 DATA O6@F 1B3FQF@3@E82 
2748 REM swap hi-scores 3185 DATA 130F 038689091983 
2749 : 3186 DATA 183C3A3F3C38188C 
2750 2=HICIJ:HICI): “HICI+1): HTCI+1)=2 3107 DATA 192E2828888E3223 
2760 2$=HI$SC I) sHIi$SCIJ=HISCI+1) 3188 DATA 183C3A3F3C301Ci@ 
2770 HI$CI+1)=e%$ 3189 DATA 383432181818282C 
2780 RETURN 3118 183C363F3C381C18 
2737 3114 323C301824242638 
27398 REM display hi-score table 3112 BBBBBB29393EBEBA 
2799 : Sats ‘A Q0008825271E1C14 
2800 CLS:PAPER @:INK 7? 3114 801E8@8033001E8833 
2810 AS=CHRS(6)+CHRSC1GI+"Midnieht Fe S115 @B1EBB3388800800 
ast "+CHR$C5S)+"Hi-Scores" 3116 3F 3E3C3C38383828 
2820 PLOT2,1,A$:PLOT2,2,A$ S117 3F 1FQ@FQFO70303@81 
2830 FOR I=1 TO 8 2118 A @8B8AG83F @B3F BBB 
2848 J=I+CI>6)*5 8119 TA Q1802020408191920 
2850 2=]X2+3 3120 2018180884020261 
2860 PLOT7,2,STR¢CIJ:PLOT?,2,J 3121 3F aBeggguggganaa 


22  Oric Owner 


MUNGAT reASt 


BF 20202020202028 3413 DATA OK, #FFFF 
3F018181018198181 3497 
BOOCiESF3F3F1E@C 2498 REM play a tune using TS 
BGBO02030383C3E88 3499 : 
840880 1878A323707 3500 T$="" 
1808003F 3D3D3E3C 3518 T$=1$+'16611665688338888" 
ATA 8@@@8183838281898C 3520 T$=T$+"6551155113BA86888 " 
ATA @8800408183C3C18 35380 TE=3:0C=4:LT=LENCTS$) 
DATA @8@0@0828202E2F3F3E 3548 FOR I=1 TO LT 
DATA 3F2A2A2A3F 202820 3558 =NT=VALC"#H +MIDS(T$,1,1)3) 2:0=0C 
DATA 3F2A2A2A3F BB8800 356@ :IF NT>12 THEN O=0C+1°NT=NT-12 
DATA BE2ZA2ZA2ZA3EG28202 3570 :IF NiT=@ THEN 3618 
: 358@ :PLAY 4,9,0,28 
REM store machine code 3590 s<MUSIC 1,0,;N,,;8:MUSIC 2,0-1,NT,4 
: 36@@ :PLAY 3,9,1,1002 
READ AD : REM works on ANY Oric 3619 :WAIT TE 
ATMOS=(DEEKCHFFFE)=58@) 3620 NEX, I 
REPEAT 3639 PLAY 0,28,0,9 
>READ DS 3048 RETURN 
sREPEAT 3697 
U=VALC" #"°+D$) 3698 REM caught you 
POKE AD,V 36939 
AD=AD+ 1 s=CHK=CHK+U 37@0 PAPER 3:FORI=iTOSS:NEX7 I :PAPER 
READ D$ ?2?FORI=1TOSS:NEXT [:PAPER @ 
>UNTIL D$="OK" 3718 PLOT 38,26,@:PLO7T OX,0Y,;NS:PLOT 
*READ AD OX,0Y-1,;NH:INK 4 
UNTIL AD=4FFFF 3728 M=M-1:PLOT19,26,STRE(MJ+", 2B" 
IF ATMOS THEN GOTO 3328 3738 IF M=@ THEN 3800 ° game over 
FOR AD=#4A@ TO #4A3 ’% Oricrl 374@ GOSUB 2010 ° reset values 
POKE AD,PEEKCADIJ+1 ° changes S782 PLOT 30,.2;STREC. It’ © 
NEXT AD 3700 PULL 
IF CHK=9?22 {AEN RETURN 3768 GOTO 100 °® restart the main loop 
REM checksum error ara? 4 
CLS sPAPER? = INK@ 3798 REM game over 
PRINTCHRSC6ICHRSC1AICHRS( 20) 39D 3 
PRINT'"Machine code error"CHRS(18 380@ PLOT 15,14,CHR$C12)+"GAME OVER" + 
CHR$(9) 
PRINT"Check the data .." 381@ WAIT 300:KS=KEY$:PULL 
LIST 3408-3413 382@ GOSUB 2808 ° display hi-scores 
STOP 3838 IF S>HIC8) THEN GOSUB 2900 
DATAS4@@ = REM move cats 3840 PLOT 6,22,CHR$(C3)+"Press <1> for 
DATA A2,93,BD,A@, 44, 85,58, BD another game" 
DATA A4,04,85,51,B8C,A8,94,A9 3@5@ PLOT 12,23,CHRS$C5)+"<2> to finis 
DATA 2@,91,58,BD,AC,804,38,13 a 
DATA C@,17,F@8,028,C8,98,90,A8 3868 REPEAT:GET K$:UN, ILCK$="1"JORCKS 
DATA @4,4C,3D;,84,A9,FF,9D;AC aN 2") 
DATA @4,D0,89,C@,94,F9,09,88 3865 GARBAGE=FREC""') 
DATA 98,9D,A8,84,A9,40,0@, 07 387@ IF K$="i" THEN 5@ 
DATA AS, @1,9D,AC,04,A9,4E;91 3888 CLS :PAPER ?:INK @ 
DATA 5@,CA, 18,BE,6@, OK 3898 PRINTCHRS(6ICHRS(17ICHKRS( 2035 
DATA#4AG = REM data table 39@@ END 
DATA F3,B88,;,83,;48,BC,BD,BE,BF 3999 
DATA @1,07,98F,16,@01,FF,@81,FF 4@Q0@ REM program by David Reid 
4019 REM copyright * 1984 


Oric Owner 23 


LISTING 1 


141 DATA 141 ,99SF8BBASE799F3BB, 1577 
142 DATA 142 ,AD18@3297FC914198, 6@5 

143 DATA 143 ,2Z6AS62EA9949BC58, 1869 
144 DATA 144 ,6@68555555555555, 782 

1a? REM EI te ina mn R pense 
158 REM MOVE BASE FROM SIDE TO SIDE 
159 REM “ee Se oe = 

16@ DATA 168 ,AS79SACBEB49990BF, 968 


53 CLS 
1@ PRINT"READING DATA NOW...” 
15 POKE??5, 255 

22 A=#AGGO:EL=1298 -GOSUBSaS 

30 A=#A10@8:EL=144 -GOSUBS282 

4@ A=#A2@0-EL=182 -GOSUB5S8@ 

5@ A=#A3BG-EL=203 
51 GOSUBS5aa 


6@ A=#A406:EL=236 -GOSUB58@ 161 DATA 161 ,ASFASSBSBFB9S68BF, 1427 
7O A=#A58G:EL=251 :-GOSUB5S8a 162 DATA 162 ,C92@FEG@34C6FAZB9, 1812 
25 POKE??5,39 163 DATA 163 ,8FB°C92@F@@34C6F, 9397 
88 PING:CLS:PRINT" THE CODE IS NOW IN 164 DATA 164 ,A28991BFC928FQ@8@3, 1159 
MEMORY. GET READY" 165 DATA 165 ,4C6FA2ZADS8A2C9AC, 985 
3@ PRINT"A CASSETTE AND PRESS RECORD. 166 DATA 166 ,°@@5C9B4F910D6@C8, 1183 
PRESS A" 167 DATA 16? ,8300@16@CE868449, 693 


91 PRINT"KEY WHEN YOU ARE READY TO SA 
UE." sGETXX$ 

92 CSAVE" CODE", AHAGBB, EHA7B =NEW 

97 REM 9 ------------------- aa----- 


168 DATA 168 ,2@999@BF99B88F88, 1184 
169 DATA 169 ,Ag79999BFASFASS, 1358 
178 DATA 172 ,888FEeCaz25Dea168, 1205 
171 DATA 171 ,EE@694a9289999BF, 937 

172 DATA 172 ,99B8BFC8A9799992, 1315 
stitial se 173 DATA 123 ,SFAgFAg9Bssr6EesD, 1375 


188 DATA 18@ ,78ASBF85@1A99885, 14962 174 DATA 174 ,9@8422CBFAAD8804, 666 
181 DATA 161 ,@@A217A@26B188C9, 761 175 DATA 175 ,ACZE@4ASDB99S98BF, 12958 
1@2 DATA 102 ,61F93@CS962F845C9, 1194 » ASDD3SSBSB8FA9@18D, 1229 
183 DATA 183 ,711887C96C38834C, 572 
184 DATA 184 ,94A@C971FA4F3088, 397 . »8104A3148076@2AD, 628 
185 DATA 185 ,C97918@4A9289198, 688 178 DATA 178 ,?6@2C9@10@F9A97B8, 1371 
186 DATA 186 ,88D2DA38A5S@@E928, 1856 173 DATA 179 ,999@BFAS7D39B8BF, 1318 
187 DATA 18? ,850@BA@@2C6@iCADB, 92a 18@ DATA 188 ,A9SB8F8D7682AD7682, 738 
1@8 DATA 188 ,CAS86@A928919GE8, 956 181 DATA 181 ,C9@109F9A928999@, 115? 
183 DATA 189 ,17F8E518986928A8, 981 DATA 182 ,8FS9B8BF2QCBFA62, 1380 
118 DATA 11@ ,A96291883898E928, 893 | 197 REM ------ = Saas ea ee 
111 DATA 111 ,AB4C3BAGA9209188, 798 198 REM UPDATE SCORE SCORE AT 48826 
12 DATA 112 ,E@17F@CC98186928, 1812 = = eats maaan 
113 DATA 113 ,A8BAS6191@03898E9, 1928 206 DATA 208 ,A4QGBES85BBE8E93A, 1188 
114 DATA 114 ,28A84C38AGA97691, 9324 281 DATA 261 ,D@@AAZ3G8999858B, 1439 
115 DATA 115 ,@6C8A97791981898, 829 202 DATA 282 ,88D@EF6@8A9985BB, 1298 
6 DATA 116 ,6928A8A978918088, 883 203 , 68555S95599999995, 691 
11? DATA 2 ,»AI??914B3898E928, 914 = rai = 
118 DATA 118 ,AB4C3@ABCI7BDBGY, 384 MOVE LASER UP AND CHECK HIT 
113 DATA 119 ,A892891804C38AG18, 654 d Sa i 
28 DATA 120 ,690191@64C38AG60, 631 2 
211 DATA 211 ,@2CSASF@B168@A921, 987 
MOVE BEAN TIN SIDE TO SIDE. 212 DATA 212 ,ACBBB4999GBFS214, 852 
SSRs se Sa 213 DATA 213 , 869884@9ASBF8587, 783 
38 DATA 138 ,78A4@84¢A92899A8BB, 99? 214 DATA 214 ,4968858628B5FA4S6, 1941 
131 DATA 131 ,939ASBB93D@BB39901, 1413 215 DATA 215 ,3B8A489A92891G6CA, 735 
32 DATA 132 ,BBSSF8BBSSF9BB99, 1517 216 DATA 216 ,8688E9@1D98816838, 728 
133 DATA 133 ,2@BCS921BCA6GSEY, 383 217 DATA 217 ,A5@6E9288596B802, 761 
134 DATA 134 ,@1FQ@EC88464C9823, 318 218 DATA 218 ,C687B1@6C93280805, 334 
135 DATA 135 ,08@4A28186854C3C, 6508 213 DATA 219 ,997C91866@A20186, 337 
136 DATA 136 ,A1888484C@020804, 839 22@ DATA 2208 ,38C961F@32C962°8, 1135 
137 BATA 137 ,AZB286GSA96399A8, 832 221 DATA 221 ,2ECSEBF@@3C9ECD@, 1376 
138 DATA 138 ,BBSSASBBA9689928, 1154 222 DATA 222 ,84884C66A46933A5, 799 
139 DATA 1339 ,BC9921BCASE499D8, 1329 223 DATA 223 ,96ES92885@6B0@2C6, 794 
D » BBASESSSDIBBASE6, 1533 224 DATA 224 ,937AS7191G628CBFA, 925 


24 Oric Owner 


lhe BEANS 


16 DATA 63; 63, 63, 33, 33, 39, 39, 


REVENGE | 


225 DATA 225 ,ABBB8N8584A9GS85, 617 


Ur 


226 DATA 226 ,38208@A34CGBA3A2, 6@a3 33 

22? DATA 227 ,6D9186A9@18DE192, 798 17 DATA 33; S7,; S?7; 338; GS; 63) BS, 
228 DATA 228 ,AI@BBDE2828DE582, 918 63 

229 DATA 229 ,8DE682A9SFF8DE3@2, 1167 18 DATA 39, 39, 33, 33, 33, 63, 63, 
238 DATA 238 ,8DE4822@04@GFBA9@1, 388 63 

231 DATA 231 ,8DE1@28DE502A904, 313 19 DATA 8, 12, 30, 63, 63, 38, 12, 2 
232 DATA 232 ,8DE8@2A9968DE202, 9313 28 DATA @, 3, 12; 38, 3@, 12, 2, @ 
233 DATA 233 ,8DE3@28DE4828DE6, 1112 


21 DATA 36, 17, 4, 34, 8, 33, 16, 4 
22 DATA @, 4, 16, 2, 4@, 2, 3, 48 
23 DATA 56, 48, 34, 4, 8, 1, 1; ? 
24 DATA @, 8, 25, 3, 3, 35, 49, 32 


234 DATA 234 ,828DE7@228D@FBAS9, 1836 
235 DATA 235 ,G685@@2688A34C@Z, 412 
236 DATA 236 ,A36@555555555555, 769 


Fee Ren nov SUPER con ano PUT Bean | 22 DATA 8 20, 12, 4, 32, 56, S680 
ee ania 26 DATA @, @, 12, 12, 28, 1, 6; 6 
2? DATA 36, @, 16, 2, @, 2, 4, 1 
248 DATA 248 ,AC@S@4ceeene12An, 772 
; 26. GATA @ 16, By ts 4, 15. S2y 16 


241 DATA 241 ,1803297FC9823081, 447 

242 DATA 242 ,68@AQG18C8504209F, 597 

243 DATA 243 ,FAAC@S84A9289912, 883 

244 DATA 244 ,BD9913BD993BBD99, 1104 
245 DATA 245 ,3ABDC8C@22D8G@6AG, 1847 
246 DATA 246 ,@88CES5@468ASEASI9, 821 

247? DATA 247 ,13BDASE99912BDA9, 1139 
248 DATA 248 ,ECSS3BBDASEBSS3A, 1252 
243 DATA 243 ,BD8C850498184A9G, 732 

258 DATA 258 ,@16@A9629962BD6E, 9328 

291 DATA 251 ,S555995555595955, 682 

5@@ REPEAT :READLL, DAS, CH 


23 DATA @, 16, 4, 8, 3, 9, 16, 4 
3@ DATA @, 9, 4, 8, 8, 2, 4, 1 

31 DATA 18, 12, 12, 12, 12, 12, 30, 
38 

32 DATA 63, 45, 45, 33, 45, 45, 63, 
eS Hs) 

33 DATA 4, 16, 4, 8, 2, 8, 4, @ 

34 DATA @, @, 12, 12, 12, 12, @, @ 
35 DATA @, 4, 34, 16, @, 8, 8B, @ 
36 DATA@,@,18,12,12,12,12,3¢a 

5S@ REM GRAPHICS DATA PROGRAM 


5@1 TT=0 6@ REM - as 
282 FORK=@TO? :B=VALC' #* +MIDSCDAS, 1+KxX 7@ REM REVENGE OF THE BEANS 
2,2)) 8O REM < 
3803 TT=TT+B:POKEAtK,B 9@ REM WRITTEN BY DAVID PEAT 
584 NEXT :A=A+t8:IFTT<>CH THEN GOTO6GB 1@@ REM 


S9@5 UNTIL LL=EL 

286 RETURN 

688 2ZAP:PRINT:PRINT"DATA ERROR FOUND 
IN LINE "5c 


LISTING 2 


1 DATA @, 8, 18, 12, 12, 12, 12, 38 
3 DATA 16, 4, 8, @, 8, 8, 4, 16 

? DATA 12, 38, 43, 63, 45, 33, 34, 
IZ 

8 DATA 12, 38, 53, 63, 33, 45, 30, 
12 

3 DATA @, 6, @, 8, @, 63; 8, 63 

1@ DATA 63, 63, 33, 32, 36, 36, 36, 
33 

11 DATA 63, 63, 33; 33, 51, S1, 51; 
31 

12 DATA 33; 36, 36, 36; 32, 33, 63, 
63 

13 DATA Sl, S159 Sis Sly Sty Sly 63, 
63 

14 DATA 63, @, 63, @, @, 8, B, @ 

1D DATA 63; 635 63, S35 33; 39; 395 
33 


12@ FORN=46888T046815 -READD :POKEN,D:N 
EXT 

138 FORN=468247T046831 :-READD :POKEN,9:N 
EXT 

148 FORN=468561047087 :READD :POKEN,D:N 
EXT 

145 FORN=463447T046351 :READD:POKEN,D:N 
EXT 

15@ Z2AP:PRINT'THE GRAPHICS ARE READY, 
INSERT YOUF 

16@ PRINT'CASSETTE AND PRESS RECORD A 
ND PLAY.” 

17@ PRINT'PRESS A KEY WHEN YOU ARE RE 
ADY' 

18@ GETX$-:CSAVE" GRAPHICS" ,446888,E£479 
S3:PRINT'GRAPHICS ARE NOW SAVED® :NEW 
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REVENGE OF 


TAe BEANS 


LISTING 3 


5 POKE618,10-HI$="988008" 

18 CLS:T$="SCORE - 980009 "+CHR$C17 
J+"REVENGE OF THE BEANS "+CHR$(C16) 

20 FORN=1TOLENCT$) :-POKE47999+N, ASCCMI 
DSCTS,N, 13) eNEXT 

328 PAPER4: INK? =FORN=9T0O12 

4Q@ PLOTI@,N,CHR#$CIBI+CHRSCZII+"R E VU 
EN GE "+CHR$(20) 

5S@ NEXT 

6@ PLOT11,12,CHR$C(18)+"OF THE BEANS 
"+CHRS$ C20) 

7@ PLOT11,15,CHR$C@)+"BY DAVID PEAT" 
23 PLAY2,1,9,2 

88 REPEAT 

98 RESTORE 

188 FORN=1T048:READ OC,NO,TI 

118 IFKEY$<>"  THENPING :GOTO288 

12@ MUSIC1,0C,NO,9:PLAY],9,1,25QxXTI 
122 PLOT11,12,CHR#¢CRNDC1)*8+16):PLOT] 
1,15, CHR$CRNDC 138) 

123 IFTI=8THENTI=18 

124 WAITTIX3 

125 NEXT :UNTILKEY$<>" 

126 GOTO28a 

138 DATA3;3,2,3,12,.5,4,1,2,3,198,2,3, 
18,2,3,18,8,4,5,2,4,2,.5,4,3,2,4,8,2 
131 DATA4,8,2,4,8,8 

132 DATAS) 1252135 See5e Sy 18, 24, by By ty 
1,2,4,1,8 

138 DATAS,; 27258, Aue Ss Sn Be 2s Ss 12,25 3y 1 
2) 2,3) 12,8 
184 DATAS: 35253; 125.5544 
18,2,3,1@8,8 
135 DATA, 5,254, 2,.5545352,4,12,2,4)1 
2,2),4,12,8 
ATAS; 12,2,3,12,, 
9,8,3,7)25;3,1G5. 
ATA3,8,2,3,8,8 
LS :PAPER@:INK3 
ORN=3TO012 
LOT1@,N, CHR$C1@)+CHR$(21I+"R E U 
E "+CHR$ (16) 
EXT 
LOT11,11,CHR$C2@)+"OF THE BEANS 
$(16) 
ORN=9TO11 -PLOTS,N, 9 2NEXT 
LOT11,13,°1.PLAY REVENGE. * 

207 PLOT11,15,'2.DEMO MODE. 

268 PLOT11,17,°3. INSTRUCTIONS. ' 

269 PLOTI4,19, "PRESS KEY" 

218 REPEAT :PLOTS3, 13,RNDC1)*?7+1-PLOTS, 
15,RNDC1)X*27+1 -PLOT3,12,RNDC1I*X27 +1 

212 K$=KEY$:UNTILK$<>°" 
213 A=VALCK$) «© TFAK> 1 ANDAS> 2ANDA<> 3THE 
N21 
215 ON A GOTO 1986, 29880, 3980 


»2,3,10,2,3, 


5,2,4 
13? 
200 
201 
282 
E N 
283 
204 
oH 
285 
206 


UVUWA VZ& Un]Go- 
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216 GOTG214 
1988 SC$="": 
BENEXT 

1818 CLS:PAPER3:INKS-PLOT!1, 26,9 

1826 POKE4,4:POKES, 1 POKES, 9 -P0KE1829 
»9:POKE183@, 28 

1938 POKE1925,3 

104@ PLOT11,1@8, CHR¢C12)+CHRE04)+"GET 
READY" :WAIT1@@ 

1@5@ PLOT11,1@, 

1668 REPEAT 

1878 CALL#AGGS :CALLHAIG@ -CALLBAG2B:CA 
LL#HA2ZGZ -CALLHAGGS -CALL HAS -CALLHA4G 
198@ UNTILPEEKC1925)=1 

1098 FORN=48@8061T048@1 1 :SC$=SC$+CHRSCP 
EEKONI 1 -NEXT 

1100 CLS :FORN=STO6 -PLOTIG,N, CHRSC1G)+ 
"YOUR SCORE IS "+SC€:NEXT 

1110 FORN=9TO1@-PLOT6,N,CHRSC193+" THE 
HIGH SCORE IS "+HI$:NEXT 

1128 JTFUALCSC$) <UALCHIS I THEN1 2028 

113@ FORN=13T014-PLOTG,N.CHRE(14)+° 79 
U HAVE THE HIGH SCORE" :NEXT 

1140 HI$=SC$ 

120@ PLOT13,2@0,°°PRESS A KEY" 

1210 GETAX$ 

1211 GETXX$ 

12208 GOTO206 

2008 FORN=48@06T048@]1 1 -POKEN, 48 NEXT 


FORN=48806104821 1 -POKEN, 4 


201@ CLS-PAPER] : INK3-PLOT], 26,2 

2026 POKE4,4:POKES, 1 -POKE8,9:POKE1029 
»92POKE 1030, 22 

2038 POKE19025,9 

2048 PLOT1@,19,° PRESS ESC TO FOR MENU 
“GWA TSAG 

2058 PLOT19,19¢, 


2668 REPEAT 

2861 CALLHAGG| -CALLHA1@@ -CALLHASBA 
2662 IFRND& 13>. 7?THENPOKES21,165 

2063 TFRNDf17>. GTHENPOKES2@, 189 

2664 IFRNDC11<. 4THENPOKES2@, 172 

2065 CALLHA2ZG@ -CALLHA4SS -CALL #4498 :CA 
LLHAGGO 

2088 UNTILPEEK(C1925)°-1ORKEY$=CHRE 273 
2098 FORN=482067T048@1 1 :POKEN, 48 :NEXT: 
GOTO268 

29393 END 

39808 CLS:PAPERS-INK@-PRINT:PRINT" THE 
BEANS HAVE DEUYISED A HORRIF IC™ 

3018 PRINT-PRINT'REVENGE FOR THEIR YE 
ARS OF SUFFERING’ 

3020 PRINT-PRINT'AT THE HANDS OF THE 
HUMAN RACE. ” 

38038 PRINT:?PRINT' THEY HAVE COME TO EA 


ReveNoc UF The Seas 


RTH IN GIANT BEAN" =PRINT 3088 PRINT:PRINT"BEANS BEFORE THEY SP 
3848 PRINT"CANS AND CRASH TO THE GROU LAT YOu..” 
ND IN A" 3898 PRINT:PRINT:PRINT" MAY THE W 
3858 PRINT:PRINT’KAMIKAZE STYLE. " IND BE WITH YOU. 
3868 PRINT:PRINT" YOU MUST CONTROL YO 3188 PLOT@, 26, CHRE$C2GQ)+CHRSC3)+" 
UR ANTI-BEAN RIOT" PRESS RETURN TO GO TO MENU" 
3878 PRINT:PRINT'"PHASOR LEFT AND RIGH 3288 REPEAT :-UNTILKEY#=CHR$(13) 
T TO SPLAT THE" 3388 GOTO202 
me 
CAROLS 
5 POKE 618,19 189@ READD1(Q1) =NEXT 
1@ GRAB 11@@ REMXX*XXKXkxkx COVENTRY 
2@ DIMAC61,3),B8061),C0019,3),0019),C1C 111@ FORO=1 TO 28 
19-32, 01019), BE28,3), FC283,6028,3),HC2 1126 FORP=1 TO 3 
8) 1138 READECO,P) :NEXT 
2) DIMI C1953 205 J 6US)6 FICDGs SIs JIC 163 1148 READF CO) sNEXT 
25 GOSUBSaa 115@ REMKXXXXXXkXx SHEPHERDS 
38 GOSUB18aa 1288 FORM= 1 TO 28 
35 REMKXKXXXXKXKXKX 121@ FORN=1 TO 3 
4@ PRINT" 1. OD Come all ve faithful 1228 READGON, NJ =NEXT 
a 1238 READHCM3) :NEXT 
45 PRINT 1388 REMKXXXkKXXxXDAVID 
S@ PRINT" 2. © little town of Bethl 132@ FORK=1 TO 19 
ehem, ' 133@ FORL=1 TO 3 
5S PRINT 1349 READICK,LJ -NEXT 
62 PRINT" 3. The Coventry Carol.” 1358 READJCK) ¢-NEXT 
62 PRINT 1378 FORK1=1 TO 16 
64 PRINT' 4, While shepherds watche 138@ FORL1= 1 TO 3 
a” 139@ READI1CK1,L13:NEXT 
65 PRINT 1498 READJ1CK1) :NEXT 
66 PRINT" 5. Once in royal David’s 1418 RETURN 
Cott 1426 REMXXXXXKKXXXXXPLAYS TUNES 
6G? PRINT :PRINT 1999 REM O COME ALL YE FAITHFUL 
72Q@ PRINT" Press a number to choose" 2686 FORX=1 TO 61 
88 GET CH$:CH=UALCCH#):2ON CH GOSUB292 2618 FORY=1 TO 3 
8,2508, 30028, 3589, 4882 2626 SOUND1,ACX,1),8:SOUND2,ACX,2),9: 
98 GOTO8¢ SOUND3,ACX,3),92 
18Q REMKXXXKKXKXxXxX 2838 PLAY?,@,1,50@@:NEXT 
568 TEXT:CLS:PAPERI] = INK3 2048 WAIT BCXIX4@8:NEXT 
5128 PRINT:PRINT :PRINT 205@ RETURN 
528 TITLE$=CHR$(138)+"CAROLS ” 2068 REMKXXXXKxXKxXxX 
53a PRINTSPCCI@JTITLES 2499 REM O LITTLE TOWN 
548 PRINTSPCCI@ITITLE$ 258@ REPEAT -CO=CO+1 
595@ PRINT :PRINT:PRINT 2995 FOR Q=1 TO 19 
568 RETURN 2518 FOR W=1 TO 3 
B@Q REMXKKKXkKkKXk O COME 252@ SOUND1,CCG,1),98:SOUND2,CfQ,2),9: 
@i@ FORX=1TO61 SOUND3,CCQ,3),2 
1828 FORY=1TO3 2538 PLAY?;9,1;5@@@:NEXT 
638 READACX, Y) :NEXT 2540 WAIT DCQ)*40-NEXT 
240 READ BCX) =NEXT 2545 UNTIL CO=2 
Q@5Q@ REMKXKKKKKXkKk O LITTLE 2686 FOR G@i=1 TO 19 
955 FORG@=1 TO 19 2618 FOR Wi=1 TO 3 
862 FORW=1 TO 3 2626 SOUND1,C1€Q1, 13,2:SOUND2,C1(Q1, 
B65 READCCG,W) -NEXT 2)3,9:SOUND3,C1(Q1,3),2 
B78 READDCQ) :NEXT 2630 PLAY?,9,1,5@@@:=NEXT 
@75 FORQi=1 TO 19 2648 WAITD10Q1)*4@:NEXT 
1088 FORWI=1 TO 3 2658 FOR @=1 TO 19:REM REPEAT LINE 
1085 READC1CQ1,W1)=NEXT 2668 FOR W=1 TO 3 
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267@ SOUND1,CCQ,1)3,@:SOUND2,CCQ, 23,08: DATA 167,211,424, 1 
SOUND3,CCQ,3),@ j DATA 188,224,283, 1 
2680 PLAY?,9; 1, 5088 :NEXT : DATA 167,283,424, 1 
2690 WAIT DCQI*4@:NEXT ; DATA1S8, 211,252, 1 
2788 RETURN DATA 141,211,336,1 
271Q REMKXXXXKKKXKKX ; DATA 125,211,317,1 
23993 REM COVENTRY CAROL DATA 167,211,283,2 
3086 FOR O=1 TO 28 BATA 188, 224,283,1.5 
3018 FOR P=1 TO3 ‘ DATA 211,283,424,0.5 
302@ SOUND1,EC0,1),@:SOUND2,E(0,2),0: DATA 211,336,424,4 

SOUND3,£(0,3),@ REM 
3038 PLAY?7,@;1;5908:NEXT 5330 REM 
384@ WAIT FCOIXSO:NEXT DATA 1@5,211,252,2 
3858 RETURN DATA 118,188,283, 1 
3O6Q REMKXXXXKXKXX i DATA 125,211,317,1 
3508 REM WHILE SHEPHERDS DATA 118,158,283,2 
3518 FOR M=1 TO 28 : DATA 125,211,317,2 
3528 FOR N=1 TO 3 DATA 141,211,336, 1 
3538 SOUND1,GCM,13,8:SOUND2,G(MN,2),98: ; DATA 125,211,317, 1 
SOUND3,G(M,3),8 : DATA 158,252,378, 
3548 PLAY 7,8,1,50@0:NEXT : DATA 141,188,476, 
3558 WAIT HCMIX4@:NEXT DATA 167,283, 424, 
3566 RETURN DATA 211,336,424, 1 
3570 REMKXXXXKXXxX : REM 
33393 REM DAVID REM 
4080 REPEAT :DO=00+r1 DATA 158,252,317, 1 
4818 FORK=1 TO 19 : DATA 158,252,317, 1 
4820 FORL=1 TO 3 DATA 167,283,424, 1 
4@3@ SOUND1,10K,13,@:SOUND2,1(K,2),8: ‘ DATA 158,252,378, 1 
SOUND3, ICK,3),@ : DATA 141,237,424, 1 
4840 PLAY 7,0,1, 5008 :NEXT : DATA 158,252,317, 
4050 WAIT JCKIXSO:NEXT DATA 211,252,424, ] 
4860 UNTIL DO=2 P DATA 125,211,317,1 
48728 FORK1=1 TO16 : DATA 125, 211,317,1 
408@ FORL1=1 TO 3 ‘ DATA 141,237,336; 1 
4698 SOUND1,11¢€K1,13,@0:SOUND2,11(K1,2 : DATA 125,211,317, 1 
J), @:SOUND3,11(K1,3),0 DATA 118,188,283, 1 
4108 PLAY?,@,1,560@ =NEXT DATA 125,211,317,2 
4110 WAITJ1CK1 ISO 2NEXT DATA 141,167,424, 1 
4120 RETURN REM 
DOGO REMKXXKXKXKKKKXKX : REM 
2678 DATA 158,252,317); 1 DATA 125,211,317,1 
2888 DATAIS8, 252,317,2 DATA 118,188,283, 
39098 DATA 211,252,317; 1 : DATA 125;211,317;1 
2188 DATA1IS8, 252,317, 1 DATA141,211,336,1 
DA 
DA 
DA 


21198 141,237,317,2 : DATA 158,224,378, 1 
91208 211,283,336, 2 ; DATA 167,283,424,2 
5138 255,211,317, DATA 158,211,252, 
3146 141,211,316,1 . DATA 118,188,476, 1 
915¢ 125,211,317; 1 . DATA 125,158,424,2 
531628 118,188,476, 1 DATA 141,167,424,1.5 
5176 125,158,424, 2 DATA 158,252,317, .4 
5188 141,167,424, 1 DATAIS8, 252,317,4 
31938 REMKXXKKKKKKKKK KKK 
52288 58,252,378; 1 ‘ REM 

5218 DATA 158,252,378, 2 DATA 237,317,378, 1 
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A134, 212,535, 1 


TA1S3, 268,401, 1 
TAI68; 212,425, 3 


4 


4-4 
Dy Dy DD WD 


A159, 253, 318,2 


77,283,476; 1 
177,211,267, 1 
7732375283, 1 
158,267,317,;1 
141,237,356,. 
158,237,356,. 
41,177,424,. 
133,177,424, . 
118,188,476, 1 
141,177,424, 1 
133,211,317, 1 
41,237,283,. 
77, 237,283,. 
158,211,267, 1] 
58,188,476; 
177,283,356; 1 
177,267,356; 1 
177,283,356; 


_ 


— 


177,283,424,. 
141,283,424, 
118, 188,283, 


te 


185,177,267, . 


118,188,237,. 
133,188,237,. 
141,237, 424,. 
98, 267,378,. 
177,283,356,. 
158, 283,356,. 
141,177,211,., 
133,177;211,. 
118,188,476, 1 
237,378,476; 1 
177; 237,283, 1 
141,237,356; 1 
58, 267,317,1 
177,211,267, 1 
2373; 378,476; 3 
OOOO KOK KX 
159,212,318, 1 
159,212,318, 1 
168,212,425, 1 
153,212,637, 2 


42,178,357,2 


Loy 272, 318, 4 
142,178,357, 
134,212,535, 
119,200,477, 1 
42, 212,425,2 


DATA134, 21 
142,178,357,2 
593,268,4@1,1 
168,2 


WWW WwW 


159,21] 
DATA168, 212,425, 
59,212,318, 1 
119,208,477, 
142,212,425,2 
126,212,318,3 


DATA142,178,357, 1 


DATAI5S; 183,477, 
142,178,357, 1 
119,189, 284, 1 
119,212,318, 
126,212,318, 1 
DATAI19,189,477,3 


142,238,397, 
DATA1@6, 178, 268, 1. 
DATAI19,178,357,,5 
134,178,425, 
142,238,357, 
DATA159, 189,477, 1 


189,224,569, 


DATAIS9,189,477, 1 
[AI78, 284,425, 
DATAI?78, 212,535, 
DATAI89, 318,477, 1 
178, 2849,715,3 
DATAZ12, 253, 318, 
168, 238, 284, 


DATAI59, 253, 318, . 
DATAIS9, 253,425, . 
168, 284,425,. 
DATAISS, 253,425,., 


TAI@6,178,535, 1 
DATAI19,178,357,2 
TA134, 212,535, 1 
TAI42,212,425,2 


2,535; 1 


2,;425,3 


2,318, 


78,238, 357, 


142; 238,357,1.° 
142,238; 357,.5 
153,189,477, 1 
178,212,425, 
B44 21255355 


134; 178;535,,1 


78,284,425, 


42,238,357, 


59. 2125 2034 1 


WWwwww: 


92, 238,425,. 


42,238,425, 1 
159,253,318, 1 


4g 


D>D D 


159,253,318, 1 
Z2a% LID; S/F; 1 
Q6,253,318,1.5 
126,212,318,. 
126,189,477,. 
42,238,47?7,. 
TA1S9, 293,425;. 
68,284,425, ., 
TAIS59, 253, 318, 2 


444 


4 
D 


ea 


TA. 94,159,238, 1 
TASS, 159, 238, 1 


SOW ePoueReUVomna Do 
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DATAIG6, 253,318,1.5 
DATAI59, 253, 318,.5 
DATAI19,159,425, 1 
DATA119, 168,425, 1 
DATAI2Z6, 212,318,2 
REM 
DATAS4, 159, 238, 1 
DATAS4, 159,238, 1 
BATA1@6, 253,318,1.5 
DATAI26, 212,318,. 
DATAI26,212,477,. 
DATA142, 238,477,. 
DATAI59, 253,425,. 
DATA168, 284,425,. 
BDATAISS, 253,637,2 


ATGS BASIC UTILITIES 


LISTING 1 


1@ *>CLOCKBBASIC 

28 ?DAVID SINFIELD 

38 °(@485) 7@865 

40°? 

10@ FORN=#94@@TO#9465 
11@ READP 

12@ POKEN;P 

13@ NEXT 
108@ DATAHAS, #10, #8D, #82, #BB, HAS, #O7, 
#8D,#81,#BB, #A9, #30, #AG, #2B 

1810 DATA#SS, #82, #BB, #88, #F0,417,4C0, 
499,#F 0, #0A,4#CO, #06, 470, #96 

1826 DATAHCG, #43, #FO, #02, #02, HEC, HAS, 
43A,499,482, #BB, #A9, #30, #D2 

183@ DATAHE6, #60, #78, #48, #98, #48, #8A, 
#48, HAG, #0B,#B9, #82, #BB, #C9 

1048 DATAHSA, #FO, #19, #C@, #04, #FQ,H1A, 
#00, #07, 4F0,#16,4C9,#39,4FO 

1850 DATA#@8, #18, #69,4@1, 499, 482, #BB, 
#00,4#10,#4A9, #30, #99, #82, #BB 

1268 DATA#88, H#F@, #08, #D0, #DB,#C9,435, 
#FQ,H#F2, #08, 4E8, #68, HAA, #68 

1870 DATA#4S8, #68, #58, #48 
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LISTING 2 


18 AUTO LINE NUMBER 

28 DAVID SINFIELD 

38 (8485) 78865 

40 

98 HIMEN#954B 

186 PRINT"COPYING AND AMENDING ROM RO 
UTINE" 
1@ P=#9674 
115 FORN=#C4D3TO#CSSC 
12@ POKEP, PEEKCN3) 
136 P=P+1 
140 NEXT 
158 DOKE#S6FE, #9561 
155 POKE#96CE, #2E 
168 PRINT:PRINT:PRINT'READING & POKIN 
i ORIGINAL BIT 


178 FORN=#954CTO#9673 
18@ READP 

'B29 CS=eS+P 

19@ POKEN,P 

208 NEXT 
262 IF CS03157? THENPRINT'CHEKSUM ER 
ROR" :END 


Ags 


218 DOKE#2F5, #954C 

18880 DATAH2Z@, H6A, #95, 426, 47F,495, #28 
»#£1,895,#20,42F,4C8, #20, #@C 

10818 DATAHS6, #20, #94,4C5,#4C, #5F,#96 
»#20,#2D,496, #4C, 455,495, #4C 

10820 DATA#C4, #95, #82, #83, HAS, Ha, 49D 
#05, #94, H4CA, 418, 4FA, 492, #04 

18038 DATAHAY, #30, 49D, Had, 44, #CA, #18 
»#FA, #60, #99, 400,485, HEA, #09 

10648 DATA#35, #85, #E9, HAZ, #06, HA9, H2C 
»#85, #08, #20,4A2,#95, #E2, #a5 

10858 DATAHF@, #23, #A2, #84, HAS, HEQ,#85 
»$80,#20,4A2, 495,468, $83, 4F2 

16668 DATAHI6, #68, 420, #E2,#@Q, HCA, #30 
»4GF,#8C5, #08, 470, #GA,#C9, 432 

18670 DATAH3@, #07, #8C9, #3A,410, #83, #39 
»#EC, #60, 448, 480, #BE, #CA, #95 
10880 DATAHF@, #06,#20,47C,#F7, #C8, #De@ 
»#F5,#A2,#FF, HSA, H4C, #B@, 404 
@09@ DATAHS1,#55, #54, #4F,820, #40, #49 
»H4E,#45,420, 446,455, #40, #42 
18186 DATAH4S, #52, 420, 445,452,452, 44F 
»#52, 400, HA@, #98, HAZ, HOG, HCE 
1011@ DATAHES, #91, #E9, #C9,#2C, #Fa, #98 
»#29,#0F,#99, 498,404, #88, 402 

10128 DATAHF@, 4A@, 495, HAS, #98, #99, #aa 
»424,488,4C6,4E9,441,4E9,4C9 
19130 DATAH2F, #38, 496,499, 4aa, #84, #4C 
»#FC, #95, 460, 4AG, #0@, #89, Hag 
1214@ DATAHO4, #C8,4CS9, 838, HF, HFS, HAZ 
1400, #88, #B9, 400, #04, HFG, HOE 
18158 DATAH86, #08, #AA, #28,47C, #F7, HAG 
»400,895,435,4F8,4C8, #00, #ED 
18168 DATAHGG, #A2, #02, HAG, Hed, #B9, HOO 
»#04, 418,470, 486, #04, 499, Hae 
18170 DATAHO4, 409, #3A, 430,41B, 498, #48 
2438, #B9,#a0, #04, HE9, #GA,499 
B18G@ DATAHGA, 494,488, 418,489, #00, #04 
»469,401,499, 40@, #04, 4C9,43A 
10196 DATAHI@, #E9, #68, #88, 488, HCA, #19 
»#D3, #60, #A2, 434, 49G, #00, #86 
0200 DATAHES, 484, HEA, #26, #E2, #90, HAA 
»4#08,493,44C,4C4, 495, #42, HEE 
18218 DATA#86, #49 


LISTING 3 


128 


ono 


CREATE DATA FROM MEMORY 


20 * DAVID SINFIELD 
38? (8485) 7a@865 
4@ ? 


186 HIMEM#SFFF 
118 PRINT'COPYING AND AMENDING ROM RO 
UTINE* 


182 
ING 9 
19@ 
288 
212 
215 
228 
23 
RROR" 
38a 
3128 
328 
338 
335 

12 
346 
3528 
362 
374 
380 

AUSE 
3398 
75/5) 
480 
410 
428 
430 
498 
495 
528 
519 
5208 
538 
54@ 


P=H415] 
FORN=8C4D03 TOH#CSSC 

POKEP, PEEKCN) 

P=P+1 

NEXT 

DOKE#41DB, 4#4@27 

POKE#41AB, #2E 
PRINT:PRINT:PRINT'READING AND POK 
RIGINAL BIT" 

FORN=#4@@@ TO #4152 

READP 

POKEN,P 

CS=CS+P 

NEXT 

IF CS<>33254 THENPRINT"CHECKSUM £ 
7END 

ELS 

PRINT@1,1@3 :PRINT 

INPUT "START OF BLOCK ‘3S 
INPUT "END OF BLOCK PSE 
IFE-S<1THENPRINT" TRY AGAIN' 


730703 


PRINT :PRINT 

INPUT"START LINE NUMBER 
INPUT" TNCREMENT 
FL=CE-SJ714XIN+SL 
IFFL>63999 THEN PRINT'THIS WILL C 
AN ILLEGAL LINE NO. ° :50TO32@a 
AS=STRE(S'_) 

A=H#404F 

FORN=LENCAS)TO2ZSTEP-1 

POKEA, ASCCMIDS$CA$,N,1)} 

A=A-1 

NEXT 

AS=STRSCIN) 

A=44953 

FORN=LENCAS1TO2STEP~-1 

POKEA, VALCMIDS$CA$,N, 133 

A=A-] 

NE XT 

PRINT" IF YOU HAVE NOT SAYED THE P 


wal 
“STN 


ROGRAM' 


5358 
566 
GRAM" 
572 
580 
59@ 
68a 
614 
528 
ATA" 
632 


PRINT'DO IT NOW. 
PRINT'PRESS RETIRN TQ TONINJE PRO 
PRINT'4NY OTHER KEY TO HALT 
AS=KEY$ :GETAS 

IF ASCCASI<>13 THEN END 
DOKE#4@62,S 

DOKE#4@64,£+1 

PRINT’ TYPE CAL_#4@@@ TO PRODUCE 9 


NEW 


18000 DATA#20,435,448,220,42F,4°8,428 


»SE9; 
1021 


$49,420, #66,4¢9, 4AG, 498 
@ DATSH831, 420,428, 481,540,428, 403 


Oric Owner 


vt 


»44Q, #68, 4A5, #Q5, #32, #94, HEB 
18020 DATAH4@, #30, #£D, #CA, #49, 490,495 
,935,84C,#3C, #41, 845, 405, #36 
1983@ DATAH1@,#20, #2A, #41, #A9, #@D, #22 
»#D9,#CC, HAS, HBA, #20, 409, HCC 
12048 DATAH4C, #03, #40, 44C, #E3, #49, HAG 
+4290, 4B9,#4B, #40, #99, #a@, #04 
@@5@ DATAH3G, HOC, #CS, HDG, 455, 430,430 
1430, #30,430, 490, #00, #80, #eO 
12@68 DATAHAG, #90, #89, #62, #40, 499, 408 
»#2@,4C8, HCO, 404, 490, #FS, 16a 
1207@ DATAHQ@, #40, 451,441, #AQ, #20, 489 
47C,#4@, 460, 4QE,#85, #05, HAA 
1QBSBQ DATAHZO, HPC, HED, HAG, HOS, 495,435 
.4C08, 428,400, HED, H6Q, 444, #41 
18899 DATAHS4, 441, #00, #48, #48, #89, 423 
»428,4839, #40, #95, 835, #28, #68 
18188 DATARGA, #40, #48, 1440, 129, #32, #20 
»H21,#4@, 820, 4B9, #40, #95, #35 
12112 DATAHES, 68,429, HOF, #29, #32, #20 
»#B1,44@,420, HB9, #40, #95, 435 
12120 DATAHES, HA9, #2C, 495,835, #20, #B9 
»448,#6@,4C9, #3A, 430, #93,418 


1 REM 
2 REM 

3 REM 
B REM = XXXKKKKKKKKKKKKKKKAKKKKKKKKK 
7? REM x CRIBBAGE k ====== X 
8 REM x DEC 1983 xk? kernow’ X 
3 REM x * BY L.ROOKE * ====== Xk 


1Q REM XXXXXKKKKKKKKKKKKKKKKKKKKKKK 

15 U9*=1 

28 IFUS*=Q8THENGOSUB658@ 

25 CLS :PAPER3: INK@ 

3@ TI$="PLEASE WAIT" :CU=11 :-GOSUB88G 

4@ GOSUB?0@0 : IFUS*=@THEN62 

43 PLOT1,15,12:PLOT2,15,4:PLOT6,15, "Pre 
ss ANY KEY to continue" 

45 REPEAT :PING:WAITS@:X=RNDC1) :UNTILKEY 
$Ou" 

4? PRINTCHR$C17) ;CHRSC6) 

5@ GOSUB19a88¢ 

6@ PAPERG:INK@:CLS 

7Q@ TI$="Do vou want to read INSTRUCTION 
su 

7S CU=12:GOSUB89@ :GOSUB482 

8@ IF AS="Y" THEN GOSUB12002 

85 PAPER 2:INK 4:GOSUB9020 

95 CLS:TI$¢="" 

198 TI$=UU$+" PLEASE "+TI$+"CUT FOR DEA 
L" :CU=8 :GOSUB882 


32  Oric Owner 


ATMOS BAS 


C UTILITIES 


10130 DATARES, #87, #68, 486,895, HAA, #290 


2#27C 


»>#F7,#88A, #86, #05, #69, 4A9 


181948 DATAHGG, 485, #05, 418,485, #00, #69 


»#21 


>#85,400, #A5, 401,469, #290 


10150 DATAHSS, #01, #C5, 483,408, 400,445 


ed 1) 


»#C5, 802, 408,404, #49, #FF 


10168 DATAHSS, #05, 460,842,4FF,49A, Hac 


1480 


»4C4, 4AG, #08, #B9, #00, #a4 


18178 DATAKCS, #C9, #30, 4FO,#°8, #A2, #aa 


3488 


> 4#BS, #00, 494, #°@, 49E, 485 


1A18Q DATAH@S, 44A, #20, #7C,4F7, HAG, 495 


2795 


»#35,4E8,4C8, #08, #ED, #68 


10190 DATAHAZ, #92, #AG, #04, 489, 0G, 424 


2418 


»#7D, 406, 404,499, #40, #04 


182660 DATAHCS, #3A,#38,41B8,498,448,#38 


»#B9 


»400,504,H#ES, #GA, #99, #00 


18218 DATAHS4, #88, 418,4B9, 408, 494,469 


5401 


> 499, #20, 404, #C9,#3A,410 


10220 DATA#ES, #68, 488,488,408, #190,#93 


+468 


3 #92, #34, 490, #98, 486, 469 


18230 DATAK84, HEA, #28, 452,408, #94, 499 


1,403 


1128 
12@ 
132 
135 


3 44C, #E3, 440, HAZ, HFEF, HBG 
18248 DATA#AS 


TI$="Press any key to cut CARDS" 
CU=12:GOSUB 8a 

GET A$ 
CTCPJ=INTCRNDC1)*5S2)+1:1IFUALCCAS$CCT 


CPJJIJ<1 THEN 135 


148 
143 


Bi$=UU$+" YOUR CARD IS " 
PLOT (C38-LEN(CB1$)372,14,B1%$:Q9=P:GOS 


UB432 


150 
155 


WAIT 1280 
CTCOJ=INTCRNDC1)XS5S2)+1 :TFUALCCASCCT 


COJIJIJ<1 THEN 155 


1608 
165 


B2$="ORIC CARD IS " 
PLOT C38-LEN(CB2$)172,28,B2$ :Q9=0:GOS 


UB43a 


172 
oD) 

IPD 
188 
185 
3 B3$ 
138 
208 
218 
229 
388 
341 
382 
383 


CP=VAL CCAS$CCTCP3I13 :CO=VALCCASCCT(O) 


IFCP <> COTHEN19@ 
PLOT2, 26, 12:PLOT4, 26,7 

B3$=" CARDS ARE EQUAL": PLOTS, 26 
*WAIT 480:CLS:TI$="RE-" :GOTO19@ 

IF CP>CO THEN LEAD=TRUE :DEAL=FALSE 
IF CP<CO THEN LEAD=FALSE :DEAL=TRUE 
WAIT 288 

GOSUB198@a 

REM 

REM 

REM 

REMXXK KKK KK KKK KKK KKK KK KKK KK KKK KKK 


304 1828 
385 
3286 
38? 
388 
303 
318 
328 
3324 
348 
358 
368 
378 
373 
382 
383 
385 
387 
3308 
391 
333 

ALSE 
3396 

RUE 
398 
420 
412 
420 
432 
435 

JJ323 
448 PLOT16,JJ,ASCCMIDSCCASCCTCQ9II,3, 1) 


REMx 
REMX 
REM x 
REMX XXX KKK KKK KKK KKK KKK KKK KK KKK KKK 
REM 

REM 

REPEAT 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


MAIN LOOP 


1048 


1058 
1068 
10878 
1088 
1898 
1199 
1288 


1288 
1480 
1808 
2200 
2408 


SRE 
3RE 
2RE 
?RE 
RE 


SHUFFLE 

DEAL 

FIND ORIC HAND 

PUT CARD IN BOX 
CUT Sth CARD 

GOSUB 260@ :REM PLAY CARDS 

GOSUB 8100 =:REM PL$CXIJ=PL$(X+6) 

IF DEAL=FALSE THEN 387 

PF x=P :GOSUB4580 

PF «=0 :GOSUB45@@ : GOSLIB538@ :GONT0393 
PF x=0 :GOSUB4580 

PF *=P ?:GOSUB45@@ : GOSUBS32a8 

REM CHANG LEAD 

IF DEAL=FALSE THEN DEAL=TRUE :LEAD=F 
:GOTO398 

IF DEAL=TRUE THEN DEAL=FALSE :LEAD=T 


1218 
1220 
52) +1 
1238 
=R$ 
1248 
1258 
1399 
1408 
1403 
01403 
1485 
1418 
01412 
1415 
1428 
1425 


GOSUB88282 

UNTIL SCCPJ=>121 OR SC(O)=>121 
GOSUB 6806 :REM WINNER + NEW GAME 
END REMKXXXXXKKKKKKKKKKKK KKK KK KK 

IF QS=OTHENQ8=22ELSEQ8=16 

FORJ J=Q8TOQ8+2 :PLOT2@,JJ,18:PLOTI?, 
142? 
143 


L=1TOS:PLOTK+L,J, "9": 


:GOSUB 880 


PRINTSPCC37-LENCUUS) J IC$C1IUUS :AS= 


"ORIC" :PLOT34,7,4:PLOT35,7,A$ 


FORJ=2TOSSTEP3 :FORK=1TO32STEP6:FOR 
NEXTL,K 
PLOT32,J,"." =NEXTJ 

PLOT 32545" D"8PLOT 37364." J" 

PLOT 1;1,12:PLOT 1,3,1 

PLOT 1,4,4:PLOT 1,6,4 

RETURN 
REM xxx SHUFFLE Xxx 
TI$="SHUFFLING Please wait" :CU=25 


FOR J=1 TO INTCRND(C1)X20)+82 
S@=INTCRNDC1)X52)+1:S1=INTCRNDC19X 


R$=CA$(SB) :CA$CSBI=CAS$(S1) :CASCS1) 


NEXT J 

NC=1 :RETURN 

REM Xxx DEAL 
FOR C=1 TO 6 

IF VALCCASCNCII<1 


*KK 


THEN NC=NC+1 :GOT 


HND$C(C,O0J=CASCNC): 
IF VALCCAS$CNCII <1 


NC=NC+1 

THEN NC=NC+ 1? GOT 
HND$CC,PJ=CASCNCJ INC=NC+1 
NEXT C 
TI$="YOUR DEAL 


"+UU$ : TFLEAD=FALSET 


HENTI$="ORIC to DEAL" 


CU=25 :GOSUB88G 


TI$="YOUR BOX "+UU$:IFLEAD=FALSETH 


} ENTI$="ORIC’?S BOX" 


1435 
1440 
1449 
1458 
B1656 
14593 
1472 
6288 
1438 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1595 
Hess hs) 
1602 
1618 
1628 
1632 
1645 


445 
456 
455 
4628 
465 
473 
48 
438 
435 
i121) 
218 
528 
8020 
885 
810 
828 
838 
848 


NEXTJJ 
PLOT18,Q8,RIGHT$CCA$C(CTCQG9)),2) 
PLOT18,Q8+1,MID$C(CASCCTCQ9II,4,2) 
PLOT18,Q8+2,RIGHT$CCAS(CTCQ9I),2) 
RETURN 
REM *XKK YES/“NO XXX 
TI$="Please press’Y? or ’N?" 
CU=CUt+2: TFCU>24THENCU=2:CLS 
GOSUB 80@0:A$="" 
REPEAT :AS=KEY$ *X=RNDC9) :UNTILAS <>" 
IFAS<>"Y"ANDAS$ <> "N" THEN488 
RETURN 

IFCU> 25THENCU=25 
PLOT2,CU, SP$ 
PLOT2,CU+1,SP$ 
TI=INTCC38-LENCTI$)372) 

IF TI<2THENTI=2 
PLOTTI,CU,TI$ 

85@ RETURN 

999 REM xxxSET UP PEG BORD. xxkxx 

1088 CLS:PAPER2 :INK@ 

1010 FORJ=48080T048280STEP4@ :POKEJ,23:N 
EXTJ 


PLOTS; 7, S4$ :CU=7 :GOSUB829 :WAIT1@@ 
C=1: FOR CE=5 TO 38 STEP 5 
REMXORIC LEAD 

IF DEAL=FALSETHEN GOSUBI60@6: GOSL 
REM XPLAYER LEAD 

IF DEAL=TRUE THEN GOSUB1658:GOSUB1 


NEXT CE 

PLOT 35,12, "BOX" 
FORJJ=13TO15 
PLOT34;JJ;3 
PLOT1;,;JJ;3 
PLOT35, JJ; "@@@" 
PLOT2,JJ, “@@@" 
NEXTJJ 

RETURN 

REM xPLOT ORIC CARDX 
FORJJ=3T0O11 
PLOTCE,JJ;3 
PLOTCE+1,JJ, “@@@" 
NEAXTJJ 

WAIT 5@:RETURN 


Oric Owner 


33 


1643 REM xXPOLT PLAYER CARDxX 
165@ FORJJ=2@TO22:PLOTCE+4, JJ, 18:PLOTCE 
Ly dds 23 
166@ PLOTCE,JJ,ASCCMID$CHND$(C,P),3,1)) 
167@ NEXTJJ:JJ=0 
1788 PLOTCE+1,18,@ 
171@ PLOT CE+2,18,48+C 
172@ PLOT CE+2,20,RIGHT$CHND$(C,P),2) 
173@ PLOT CE+2,21,MID$CHND$(C,P),4,2) 
174@ PLOT CE+2,22,RIGHT$CHND$(C,P),2) 
175@ WAIT 5@:C=C+1:RETURN 
1793 REM xxx FIND ORIC HAND xxx 
18808 TI$="Please wait ORIC IS THINKING" 
>CU=25 :GOSUB8028 
1884 DT=15 
1885 FORJ1=1 TO LU:CCOCJII=INTCRNDC1)XDT 
J+] 

181@ FOR K=1TO6:LCKIJ=VUALCMIDSCDT$C(CCCJ1 
J3,K;1)) 

1815 H4$CJ13=H4$CJ13+HNDSCLCKI,0) =NEXT 
K 

182@ FOR K=1T04 :RNCKJ=VAL CHND$C(LCKI),0)3 
?UCKI=RNCK) 

1825 IFUCKI>1@ THEN UCK)=19 

183@ NEXT K 

1848 TT=1 

1845 FOR K=1TO3:TT=TT+1 

1858 IFRIGHT$CHND$CK,0), 2) <>RIGHT$CHND$ 
CKt+1,;0),2) THEN TT=@:K=3 

1855 NEXT K 

1862 GOSUB 4632 

1980 TTCJ1)=TT 

1910 ODCJ1)=TT 
1928 DT=DT-1:R$=DTS$(CCCJ13) :DT$CCCCI133 
DT$C(DT+1):OTS$(DT+1)=R$ 
1938 NEXT Jl 
1940 FOR K=1 TO LU:D=1:E=2 
1958 FOR L=1 TO LU-! 
196@ IF ODCD)<GDCE3J THEN F=0D(D):OD(D)= 
ODCE) :ODCEJ=F 
1986 D=D+1:E=E+1] 
198@ NEXT L:NEXT K 
1998 FOR J=1TO LU :D=1 

2008 IF ODCDJ=TTCJ) THEN F=J:5=LU 

2018 NEXT J:K=@ 

202@ FOR J=1TOSSSTEP? :K=K+t]1 

2038 HND$CK,OJ=MID$CH4$(F I,J, 73 

2048 NEXT J 

2058 FOR K=STO6:PLE¢(K, OJ=HND$CK, 0) :HNDS 
CK,;0J="993" :NEXT K 

2057 FORJ=1TOLU:H4$(JJ="" :NEXT 

2868 RETURN 

2199 REM xxx PUT CARDS IN BOX xxx 

2200 FOR J=1 TO 2 
2218 A=INTCCRNDC1)X6)+1)*5 
2215 IF SCRNCA,;9)=32 THEN 2210 


+ 


V 


34 Oric Owner 


FORK=9TO11 

PLOTA;K,S?$ 

NEXTK 

NEXTJ 

FOR PL=5 TO 6 

TI$="To put CARDS in BOX press car 


d number" :CU=25:GOSUB 808 


2305 
2318 
CU=25 
2328 
2338 
BOX" 
2348 
2358 
2368 
2378 
2388 
2399 
2408 
AR to 
2410 
CU=25 
2428 
2425 
2430 
2435 
2436 
2437 
23 
2438 
2439 
2456 
2457 
2458 
2468 
2465 
2478 


“' SRETURN 


2475 


GET C$:C=UALCCS$) 
IFC<1ORC>6THENTI$="1 to 6 please": 


*GOSUB88@ :WAI T3848 :GOTO2302 


A=CXD5+3 
IFSCRNOCA, 29)=32THENTI$="Card is in 


?CU=25 :GOSUB8O8 : WAI T3488 :GOTO02302 


FOR K=1? TO 23 

PLOTA-3,K, S7$ 

NEXT K 

PL$CPL,;PJ=HND$C(C,P) :HND$(C,P)="999 


NEXT PL:RETURN 

REM *xkkx CUT FOR Sth CARD xxxx 
IFLEAD=FALSETHENTI$="Press SPACE B 
cut cards" :CU=25 :GOSUB8QQ :PF%=0 
IFLEAD=TRUETHEN TI$="ORIC to cut": 


>GOSUB88@ :PF =P :GOT02425 


GET AS:IF AS<>" “ THEN 2408 
CT=INTCRNDC1)X36)+16 

J=0 

WAIT 18@:FOR J=12 TO 16 
PLOT2,J,S?7$:NEXT J 
FORJJ=13T015:PLOTS,JJ,18:PLOT2, JJ, 


PLOT1,JJ,ASCCMID$CCA$(CTI,3,13) 
NEXTJJ ?JJ=@6 

PLOT 3,13,RIGHT¢CCAS$(CT), 2) 
PLOT 3,14,MID$C(CA$(CT),4, 2) 
PLOT 3,15;RIGHT$CCAS(CTI, 2) 
TI$="ORIC P 
IFPF*=PTHENTI$=UU$+" PEGS " 
IFVALCCASCCTIIJ<> 11 THENWAIT3@0:TI$¢= 


PEG=2:TI$=+TI$+"2 for HIS HEELS":C 


U=25 :GOSUB88@8 :GOSUB55aa@ 


2488 WAIT4@0:TI¢$="" sRETLURN 

2599 REM xxx PLAY CARDS xxx 

2600 PL=@:PO0=0:F3=FALSE 

2605 REPEAT:C$=" ":O0g=" "IF =9:Y3=@:CX=1 
>CD=Q 

2687? GOSUB3188 

2608 JF PL=>4 THEN C$="P":LEAD=TRUE 
2610 IF LEAD=FALSETHEN2655 

2615 IF PO=>4 THEN D$="P":GOTO2655 
2620 TI$="OGRIC to lead" :CU=25 :GOSUB828 
2621 REMkxX SET FLAG TO PLAY 5,6,9 

2625 FG*=INTCRNDOC13*10)+1:F1=1 

2636 C=INTCRNDC13%*4)+1:IF HND$(C,0)J="99 
S"THEN 2638 


+6,O0J=HND$(C, 0) 
2637 IF PO=4 THEN2645 


J} <>6ANDUAL CPL$CPO;0))<>STHEN2645 
2641 IF FG*%>4THENPO=PO-1 :GOTO2625 
2645 GOSUB430@:F=1:REM PLOT ORICCARD 


=18 
2647 GOSUB31128 
2658 GOTO2720a 


O:WAIT499 

2668 AS=1 :GOSUB295@ 

2663 IFC=@THENGOSUB30198:GOTO2663 
2665 GOSUB32@@ :F1=@ 


=10 

2668 GOSUB3110:A5=0 

2700 WAIT2@@: REPEAT 

2718 IF F1=@ THEN 2838 

2728 GOSUB 295@ :REM GET C$ 

2730 IF C$="P" THEN 2832 

274@ IF PL=1 AND PO=@ THEN 2828 

2758 GOSUB 34@@:REM UAL CARDS PLAYED 
2800 GOSUB320@: REM PLOT CARD P 
2801 GOSUB312a8 

2814 GOSUB 360@:REM SCORE PLAYED CARD 
2815 IF Y3=31 THEN 2881 

2820 IF PL=4 AND F=1 THEN2881 

28380 IF PO=4 THEN2881 

284@ GOSUB 399@ :REM FIND CARD 


U=25 :GOSUB889 :WAIT2@@ :GOTO2881 
287@ GOSUB34Q@ : GOSUB43@ :REMPLOTCARD 
2875 GOSUB312@ 

2888 GOSUB 36aa 
2881 IF PO=4 THEN D$="P" 
2883 IF PL=4 THEN C$="P" 


1 +GOSUB558@ 

28893 GOSUB312@ 

2899 F1=1:UNTILC$="P"ANDD$="P"ORY3=31 
2895 GOSUB 8220 

2897 PLOT28,7," " 

290@ UNTIL F3=>8 

2318 RETURN 

2349 REM *xkx GET C$ xXxXxXxXx 

295@ IF C$="P" THEN RETURN 

2955 IF PL=4 THEN C$="P" :RETURN 
2968 LEAD=TRUE 

2978 TI$="Press card num. to play 
2975 IFAS<>ITHENTI$=TI$+"?P? to pass" 
298@ CU=25:GOSUB 88a 

2985 C¢$="" 

2990 GET C$: IFC$=""THEN299@ 


LRIGOAGE 


2635 PO=PO+1:PL$(PO,0)=HND$(C,0) :PL$C(PO 


264@ JFUVALCPL$CPO,0)3 <>SANDUAL CPL$C(PO, 0 


2646 AS=VALCPL$(PO,0)):IF AI>1@ THEN AS 


2655 TI$=UU$+" YOUR LEAD" :CU=25 :GOSUB82 


2667 AS=VALCPL$(PL,;P)):IF AS>1@ THEN AQ 


2845 IF D¢$="P" THEN TI$="O0RIC PASSES" :C 


2885 IFD$="P"ANDC$="P"ANDY3<31 THEN PEG= 


2995 C=VAL (C$) 
3088 IF C>@ AND C¢<? THEN 3011 
3883 IFCS$="P"THENGOSUB315@ 
3865 IFC$="P"THEN388¢ 
3018 TI$="1 to 6 or °P’ Please" :GOTO 29 
88 

3011 Q 
Q=10 
3815 A=CxX5+1 

3028 IFSCRNCA; 21)=23THEN3@52@ 

3025 IFSCRNCA,; 18)=23THEN3048 

3830 GOSUB389¢ 

3835 TI$¢$="CARD IN BOX Try again" :GOTO2 
989 
3848 GOSUB3899 
3845 TI$="CARD PLAYED Try again" :GOTO2 
98a 

3858 I1FQ+Y3=<31THEN30798 

3868 GOSUB3892 

3065 TI$="TOTAL OQUER 31 Try again" :GOT 
02980 

3@07@ PL=PL+1:PL$CPL,P)J=HND$(C,P) :PL$CPL 
+6, P)J=HND$C(C,;P3 

3088 RETURN 

3098 ZAP :WR=INTCRNDC 13X27) :TI$=WRECWR) IC 
U=25:GOSUB 880:WAIT3@@:RETURN 

3180 PLOT 4,7, "TOTAL OF PLAYED CARDS : 

"SRETURN 

3118 ASF$=STRSCAS) :AIS=MID$SCAS$, 2) :PLOT2 
8,7,A9$ :RETURN 

3128 Y3$=STR$CY3) :Y3$=MID$lY3$, 2) :PLOT2 
By7;" ":PLOT28,7,Y3$ :RETURN 

3143 REM CHECK PASS 

315@ FOR J=1 TO6:K=VAL CHND$(J,P)):IFK>12 
3THEN3178 

3155 IFK>1@THENK=1@ 

316@ IFK+Y3=>31THEN317@ 

3165 J=190 

31708 NEXT 

3175 IFJ<S@THEN RETURN 

3180 TI$=UU$+" YOU CAN’T PASS" :C$="":CU 
=25 :GOSUB8@@ :WAIT3@@:RETURN 

3199 REM *k PLOT CARD PLAYER xx 

3200 IF C=@ THEN RETURN 

3205 FOR J=18TO23:PLOTA-1,J,S7$:NEXTJ 
3218 FORJJ=17T019:PLOTAt3,JJ,18:PLOTA, J 
J,;23 
322@ PLOTA-1,JJ,ASCCMIDSCHNDS(C,PI,3,1) 


VAL CHND$(C,P)):IFQ>1@ANDQ<14THEN 


iH 


3 
3238 NEXTJJ :JJ=@ 
326@ PLOT A+1,17,RIGHT$CHND$C(C,P),2) 
32708 PLOT A+1,18,MID$CHND$(C,PI,4,2) 
3286 PLOT A+1,19,RIGHTS$CHND$C(C,P),2) 
3285 PLOTA;21,0 
3298 PLOT At+1,21,C+48:HND$(C,PJ)="999" :F 

3=F3+1 :PF%=P:CD=CD+! 


Oric Owner 


35 


33088 RETURN 

3399 REM xx VAL PLAYED CARDS xXx 
3488 2=8:J=0:29=0 

3418 REPEAT : IFDEAL=TRUETHENJ=J+1 

3428 IF DEAL=FALSEAND29=6THEN3478 
3425 IFUALCPLECJ,PIJI=@THEN3460 

3430 2=%+1 IRNCZI=RB:UCZI=0 

3448 RNC2ZJ=VALCPL$CJ,PI) 

346@ IF 2=CD+1 THEN 3512 

3478 IFDEAL=FALSETHENJ=J+1 :29=1 

3475 IFVALCPL$CJ,0)J=@THEN3510 

3480 2=2+1 RNC ZI=02UCZI=0 

3498 RNCZIJ=VALCPLECJ,0)) 

351@ UNTIL 2=CD+t1 

3511 FORJ=1TO2: IFRNCJJ<>@THEN3513 

3512 R1I=RNCJI I RNCJI=HRNCJ+13 ¢RNCJ+13=R1 
3513 UCJI=RNCJIFIF UCJID>IBTHENUCIJI=A10 
3514 NEXT J 

3528 J=8:Y3=0 

3538 REPEAT 

354@ J=J+1:V1=UCJ) 

3558 Y3=Y3+7Tl 

356@ UNTIL J=2ORY3=>31 

3578 RETURN 

35993 REM xk SCORE PLAYED CARDS xx 
3608 2=CD 

361@ IF Y3=15 THEN PEG=2:GOSUB 55388 
3626 IF Y3=31 THEN PEG=2:GOSUB 5508 
3638 PEG=@ 

36399 REMKPAIR AND RUNX 

3780 IFRNC2Z)<>RNC2Z-13 THEN3745 

371@ IFRNC 2-1) <>RNC2-2) THENPEG=2 :GOTO37 
40 

3728 IFRNC2-2) <>RNC2-3) THENPEG=6 :GOTO37 
42 

3738 PEG=12 

3748 GOSUB 5500 :PEG=@ ?:RETURN 

3745 IFCD<3THENRE TURN 

375@ FORJ=CX TO CD:RCCJIJ=RNCJIJINEXT J 
376@ FORJ=CX TO CD:FORK=CXTO CD-1 

3770 IFRCCKI>RCCK+13 THENR3=RCCK) =RCCKI= 
RCCK+13 FRCCK+1I=R3 

3788 NEXT K:NEXT J 

3785 PEG=@ 

37938 FORJ=CX TO CD-1 

3795 IFRCCJI=Q@THEN3819 

380@ IFRCCJIJ=RCCJ+13-1THENPEG=PEG+1 
3805 XX=XxX+1 

381@ NEXT J 

3828 IFPEG=XXTHENPEG=PEG+1 :GOSUB55@@ :GO 
T0384 

3838 CX=CX+1 

3848 FORJ=1TO8=RCCJI=O:RNCJI=OzNEXT JiP 
EG=@ :xXx=2 

3858 RETURN 

38939 REM xk FIND CARD ORIC xx 
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39@8 REM: FOR J=1TOS:PING:WAIT20 2NEXT 
3905 IF D$="P" THEN RETURN 

391@ LEAD=FALSE 

3915 TI$="GRIC to play" :CU=25 :GOSUB82@: 
WAIT2@2 

3928 C= 

393@ REPEAT :C=C+1:IT=VALCHND$C(C,0)) 

3935 IF 1>1@ AND I<14 THEN I=18 

3948 UNTIL Y3+I=31 OR C=4 

3958 IF Y3+I=31 THEN424@ 

3968 C= 
397@ REPEAT :C=C+1:IT=UALCHND$C(C,0)) 
3975 IF 1>1@ AND I<14 THEN I=1@ 
398@ UNTIL Y3+I=15 OR C=4 

3998 IF Y3+I=15 THEN4240 

4010 C= 
4026 REPEAT :C=C+1:I=VALCHND$(C,0)) 

4025 IF I>1@ AND I<14 THEN I=192 

4038 UNTIL VALCPL$CPL,PJJ=VALCHNDS(C, 0) 
J) OR C=4 

4040 IF VALCPL$CPL;,P)JIJ=UVALCHND$CC,0))AN 
DY3+1=<31THEN424@ 

4056 C= 

406@ REPEAT :C=C+1:=[=VALCHND$(C,0)) 

4@65 IF I>1@ AND I<14 THEN I1=19 

407@ UNTIL VALCPL$CPL,PJJ=VALCHNDS(C, 0) 
J+1 OR C=4 

4080 IF VALCPL$CPL,PJJ=VALCHND$(C,0)I)+1 
ANDY3+ I =<31THEN4242 

40398 C= 

4108 REPEAT :C=C+1:T=VALCHND$CC,0)) 

4185 IF I>1@ AND I<14 THEN 1=18 

4110 UNTIL VALCPL$CPL,PJJ=VALCHNDS(C, 0) 
J-1 OR C=4 

412@ IF VALCPL$CPL,PJJ=VALCHND$(C,0)3-1 
ANDY3+ I=<31THEN424@ 

414@ C=a 

415@ REPEAT :C=C+1 :T=UALCHND$(C,0)) 

4155 IF I>1@ AND I<14 THEN I=18 

416@ UNTIL VALCHND$C(C;,;0)3>18 AND !+Y3=< 
31 OR C=4 

4170 IF I+Y3=<31THEN424@8 

4188 C= 

4183 REPEAT :C=C+1:IT=VALCHND$CC,0)) 

4185 IF I1>1@ AND I<14 THEN I=1@ 

413@ UNTIL I1+Y3=<310R C=4 

4208 IF I+Y3=<31 THEN424@ 

4238 D$="P": GOTO4268 

4248 PO=P0+1 :PL$CPO,0J=HND$(C, 0) :PL$CPO 
+6, 0)=HND$(C,0) 

426@ RETURN 

4299 REM PLOT ORIC CARD 

4368 A=INTCCRNDC13*63+13X5 +1 

4318 IF SCRNCA; 10) <>64THEN43898 

432@ FOR J=8T012:PLOTA-1,J,S7$ :NEXTJ 
433@ FORJJ=9TO11:PLOTAt+3,JJ,18:PLOTA; JJ 


»23 
4335 
) 
4348 
4368 
4365 
4366 
4370 
D+1 
438@ 
4499 
45aQ 
4502 


4504 
4526 
4528 


45128 
4512 
4514 
4558 
4552 
4553 
4554 
4555 
4559 
4568 
4562 
4564 


4566 
4568 
4570 
4572 
4574 
46200 
4618 
4611 
4612 
4613 
4614 
4615 
4613 
46286 


4625 
4628 
4629 
4630 
4633 
4640 
465¢ 
4669 
4670 
4680 


PLOTA-1,; JJ, ASCCMIDSCHNDS$(C,03,3,1) 


NEXTJJ :JJ=@ 
PLOTA+1,9,RIGHT#CHND$(C,0),2) 
PLOTA+1, 10, MID$CHND$(C, 03,4, 2) 
PLOTA+1,11,RIGHT$CHND$C(C, 0), 2) 


HND$CC,03="999" :F3=F3+1 :PF*=0:CD=C 


RETURN 

REM Xxx SCORE PLAYED RAND xxx 
PEG=1:FOR J=1TO3 
IFRIGHT$CPL¢(CJ,;PF%),2)=RIGHTSCPL$C 


J+1,PF*),2) THENPEG=PEG+1 


NEXT J 
IF PEG<>4THEN 455@ 
IFRIGHT$CPL$C1,PF4),2)=RIGHTSC(CAS( 


CT3,;2) THEN PEG=PEG+1 


GOSUBS200:TI$=TI$+" FOR FLUSH" 
CU=25 :GOSUB88@8 :WAIT28a 
GOSUB5580 :WAIT280 

PEG=@ 

FOR J=1 TO 4 
RNCJI=VALCPL$(J,PF%)) 
UCJI=ERNCJIFIF UCJIOI@THENUCII=18 
NEXT J:GOTO 4622 

REM XUAL BOX HANDX 

PEG=1 

FOR J=STOG:FOR K=@TO1 


IFRIGHT$CCAS(CT),2)=RIGHTS$CPL$CJ,K 
J; 2) THENPEG=PEG+1 


NEXT K:NEXT J 

IF PEG<>S THEN 462@ 
GOSUBS28@:TI¢$=TI$+" FOR FLUSH" 
CU=25 -GOSLIB88@ :WAIT28@ 

GOSUBS588 :WAIT29@ 

PEG=@ 

K=4 :FOR J=1 TO 4:K=K+1 
RNCJI=VALCPLE(K,0O)) 
UCJI=ERNCJIFIF UCJI>IBTHENUCII=190 
J=J+1ERNCJI=VALCPL$CK,P)) 
UCJIERNCJIFIF UCJI>SIBTHENUCIJI=198 
NEXT J 

REM xXUAL CUT CARDX 


J=S:RNCJI=VALCCAS(CTIIFUCJI=RNCUI: 
IF UCJIDOIBTHENUCJ)=19 


GOTO 4642 
REMXRNCJI,UCJI TO 188 SORT ORIC 
REM HAND ONLYX 
RN(5J)=188 -U(5)=188 

REM SCORE 15’s 

PEG=@:F=@ 

FOR J=1TOS:F=Ft+UCJ):NEXT J 

JF F=15 THEN PEG=2:GOTO 4810 
FOR M=1 TO 2 
*FOR L=M+1 TO 3 
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4690 
4700 
4718 
=PEG+2 
4728 
4758 
+1 TO 
4762 
2 
47728 
4788 
4730 
4800 
4810 
4828 
4825 
4838 
4842 
4858 
4855 
4859 
4862 
4870 
4880 
4890 
4998 
4912 
4915 
4920 
4930 
4935 
4938 
4939 
4940 
4958 
J=RNCJ 


> FOR K=L+1 TO 4 
FOR J=K+1 TO 5 
IF UCMI+UCLI+UCKI+UCJI=A15 THEN PEG 


NEXT J:NEXT K:NEXT L:NEXT M 
FOR L=1 TO 3:FOR K=L+1 TO4:FOR J=K 
5 


IF UCLI+UCKI+UCJI=15 THEN PEG=PEG+ 


NEXT J?NEXT K:NEXT L 
FOR K=1 


TO 4:FOR J=K+1 TO 5 
IF UCKI+UCJIJ=15 THEN PEG=PEG+2 


NEXTJ =NEXT K 


TT=TT+PEG 
IF RNC5)=10@ THEN 4860 
IF PEG=@ THEN 4869 


GOSUB 528@ 


TI$=TI$+" FOR 15’%s" 


CU=25:GOSUB 8@0:WAIT 28a 
GOSUB 5588 :WAIT20@ 

REM SCORE PAIR 

PEG=@ 

FOR K=1 TO 4:FOR J=K+1 TO 5 


IF RNCKJ=RNCJ) THEN PEG=PEG+2 


NEXT J:NEXT K 


TT=TT+PEG 
IF RN(5)=1@@ THEN 4942 

IF PEG=@ THEN 4940 

GOSUB 52@@:TI$=T1$+" FOR PAIRS” 
CU=25:GOSUB 8@@:WAIT 208 

GOSUB 5580 :WAIT2@0 


REM xxx SCORE RUN xxx 


REM SORTE INTO NUM ORDER FIRST 
FOR K=1 TO S:FOR J=1 TO 4 

IF RNCJI>RNCJ+1) THEN F=RNCJI IRNCJ 
+13 °RNCJ+13=F 


496@ NEXT J:NEXT K:PEG=@ 


43978 


TFRNC1)<>RNC2)-10RRNC2)<>RNC3)-10R 


RNC33 <>RNC4)-1ORRNC4) <>RNCS)-1 THENS@@@ 


°498@ 
5888 


PEG=5 :GOT0518@ 
FOR M=1 TO 2:FOR L=M+1 TO 3:FOR K= 


L+1 TO 4:FOR J=K+1 TO 5 


5848 


RNCKJ= 


5058 
586¢ 
3078 
1 TOS 
3888 


IFRNCM3=RNCLI-1ANDRNCLJ=RNCKIJ-1AND 
RNCJJ-1THENPEG=PEG+4 

NEXT J:NEXT KeNEXT LiNEXT M 

IF PEG<>@ THEN 5108 

FOR L=1 TO3:FOR K=L+1 TO4:FOR J=K+ 


IFRNCLJ=RNCKI-1ANDRNCKI=RNCJI-1 THE 


NPEG=PEG+3 


5836 
51988 
5118 
5112 
9114 
5116 


NEXT J?NEXT K:NEXT L 

TT=TT+PEG 

IF RNCS)=10@ THENS16@ 

IF PEG=@ THEN 5120 

GOSUB 52@0:TI$=TI$+" FOR RUN’S" 
CU=25:GOSUB 8@@:WAIT 2@8 
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9118 GOSUB 55@@ :WAIT200:>PEG=@ 

912@ IF BOX*=@ THEN 5142 

5122 FOR J=STO6:FOR K=@TO1 

53124 IFRIGHT$CCAS(CTI;2)I=RIGHTSCPLS(J5K 
3, 2JANDUALCPL$CJ,KIJ=11THENPEG=1 

5126 NEXT K*NEX7 J 

5130 BOX*=@:GO70515¢ 

59142 PEG=@ 

5144 FOR K=1T0O4 

5146 IFRIGHTS$CPL$CK;PF*),23)=RIGHTSCCASC 
CTI, 22 ANDUALCPL$CK,PF*)J=11THENPEG=1 
5148 NEXT K 

315@ IF PEG=@ THEN 5158 

9152 TI$="ONE for his NIB’?S":CU=25 
3154 GOSUB888 :WAIT249 

5156 GOSUBS58@ :WAIT2@@ 

5158 RETURN 

32160 FOR J=1TOS:RNCJI=@:UCJI=RGzNEXT J 
9178 RETURN 

5920@ TI$=UU$+" YOUR " 

321@ IF PF*=0 THEN TI$="ORIC’S " 

5226 PEG$=STRECPEG) :PEG$=MID$CPEGS$, 2) 
5236 TI$=TI$+"SCORE: “+PEG$ 

924@ RETURN 

3299 REM xxx SHOW BOX+GOSUB SCORE xxx 
3308 TI$='"" :CU=25 :GOSUB822 

5304 PLOT4,7;S4$ 

9385 FORJ=8T026 

39318 PLOT 6,J,S3$ 

9328 NEXT J 

9325 C=4:F=0:BOX*=1 

3338 JFDEAL=TRUETHENPLOT14,7,"ORIC’S BO 
4" :GOTOS365 

9335 PLOT12,7,UU$+"’?S BOX" 

3365 FOR CE=9 TO 3@ STEP 7:C=Ct+1 

59370 FORJJ=13T015:PLOTCE+4;,JJ,18:PLOTCE 
+1,JJ;23 

5375 PLOTCE, JJ,ASCCMNID$CPL$(C,FI3,3,1)3 
35388 NEXTJJ :JJ=@ 

5395 PLOT CE+2,13,RIGHTS$C(PL$(C,FI),2) 
5408 PLOT CE+2,14,MIDS$CPL$(C,FI);,4,2) 
541@ PLOT CE+2,15;,;RIGHTSC(PL$(C,F); 2) 
9420 IF C=6 THEN C=4:F=P 

5438 NEXT CE 

344@ GOSUB 4560 :WAIT40@ 

3445 PLOT4,7,S4¢ :FORJ=87T026:PLOT2;J,SP$ 
=NEXTJ 

5450 RETURN 

54399 REM x*xkxk PEG xxx 

3500 IF PF*<>P THEN 56a@ 

3518 SCCPI=SCCPI+PEG 

9915 IF PEG=@ THEN RETURN 

9528 Q1=XP :Q2=OP :Q3=SCCP) 

553@ Q4=L1:Q5=L2 :Q6=L3:Q7=1 :Q8=3 

5535 JFBELLTHENPING 

3548 GOSUB 5708 
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555@ XP=Q2 :O0P=Q3:L1=04 :L2=Q5 :L3=06 
5566 IF SCCP)=>121 THEN 418 

557@ PEG=@:RETURN 

5608 SCCOJ=SCCOI+PEG 

56@5 IF PEG=@ THEN RETURN 

5618 Q1=X90 :Q2=00 :Q3=SC(O) 

5628 Q4=L4 :Q5=L5 :Q6=L6 -Q7=6 :Q8=4 

9625 IFBELLTHENPING 

9638 GOSUB 5728 

564@ XO0=Q2 :00=Q3 :L4=04 :L5=QG5 :L6=Q6 
S65@ IF SCCOJ=>121 THEN 410 

S66@ PEG=@:RETURN 

9708 IF Q3<91 THEN 576@ ELSE Q3=Q3-89 
571@ IF Q5=Q8THEN Q4=08 

572@ IF Q6=Q8THEN Q@5=Q8 

5738 Q6=08 

5748 GOSUB 5862 

5750 RETURN 

576@ IF Q3<61 THEN 58198 ELSE Q3=Q3-62 
9778 IF Q5=Q7THEN Q4=Q7 

578@ IF Q6=Q7THEN Q5=Q7 

5798 Q6=Q? :Q3=37-Q3 

580@ GOSUB 5860: RETURN 

581@ IF Q3<31 THEN 584@ ELSE Q3=Q3-29 
5828 GOSUB 5719 

583@ RETURN 

5848 GOSUB 57392 

3858 RETURN 

986@ IF Q6=Q8THEN GOSUB 5928 ELSE GOSUB 
5958 

59876 IF SCCPJ=>121 OR SCCOJ=>121 THEN Q 
3=36 

5880 PLOT @1,Q4," °" 

59898 PLOT @2,Q5,"]" 

593980 PLOT Q3,Q6,"]" 

531@ RETURN 

593913 REM xk JUMP SPACE FROM L-R 

5926 FOR J=6 TO 3@ STEP 6 

599338 IF Q3>J THEN @3=Q3+1 

534@ NEXT J:RETURN 

99343 REM x JUMP SPACE FROM R-L 

9935@ FOR J=32 TO8 STEP-6 

99608 IF Q3<J THEN Q@3=Q3-1 

597@ NEXT J:RETURN 

59993 REM xxxk SHOW WINER + NEW GAME xxx 
6006 WAIT1@@:CLS :FORJ=@TO? :PAPERJ :WAIT2 
@:NEXTJ 

6026 TI$="ORIC IS THE WINNER" :K=1:PAPER 
6: INK@ 

6030 IFSCCPIJ>=121THENTI$="YOU ARE THE W 
INNER" :PLOT14, 14, UU$ :K=2:PAPER1 : INK? 
6840 CU=12:-GOSUB 8aa 

6050 FORJ=1T023 

6@6@ NU=INTCASCCMIDSCMUSCKI,J, 133-64) 
607@ WT=INTCASCCMIDSCWT$C(KI,J, 133-64) 
6080 OC=3:1FNU> 12THENOC=4 :NU=NU-12 


66398 MUSIC 2,0C,NU,1@ 

61@@ MUSIC 1,0C+3,NU,0 

611@ MUSIC 3,0C-1,NU,8 

6128 WAITWTX12 

6138 PLAY 7,8,1,3008 

6140 NEXTJ 

6158 PLAY@,8,;8,9 

6248 CLS :WAIT2@@:PLOT14,14,ULU$ :WAIT1@@ 
625@ TI$="PLAY AGAIN" 

6268 CU=16:GOSUB 880:WAIT1@@ 

6270 GOSUB 488 

6288 IF A$O"Y" THEN RETURN 

6298 RUN2@ 

6588 FORX=14T024 

6518 UU=SCRNCxX, 14) 

6528 UUS=UUFS+CHR$CUU) 

653@ IFUU=32ANDSCRNCX+1, 14)=32THENX=35 
654@ NEXTX 

6558 X=8 :UU=0 

6576 UUS=LEFTSCUUS$,LENCUUSI)-1) 

6588 RETURN 

6998 REMKXXXXXk IN.UAL. KXXKkKxKX 

6999 REMKKXxXkKxk DIM ARRAYSXKXXXKXxXxXx 

7080 DIM CCC15),RNC10),U010),LC6) 

701@ DIN TTC15),900015),CTC13,SCC1) 
7015 DIM RCC8) 

7028 DIN CA$(52),HND$C12,13,PL$C12,13) 
7038 DIM DT$C15),H4$C15),S$C13) 

70339 REM xkxX MAKE CARDS xxx 

7048 FOR J=1 TO 8:READ R 

7@6@ FOR K=@ TO 7:READ S 

7080 POKE #B4@@+8xXR+K,S 

7090 NEXT K:NEXT J 

7108 DATA 92,1,75,;15,15,13,1,3,7 

7101 DATA 94,0, 48,56, 56, 24,0; 32,48 
7182 DATA 95,3,;7,3,29,63,29,1,3 

7103 DATA 186, 32,48, 32, 28,62, 28,0, 32 
7104 DATA 122,12,38,31,31,15,7,3)1 
7185 DATA 123, 24,68,60,68,56,48, 32,0 
7186 DATA 124,1,3,57,15,15,7,3,; 1 

7187? DATA 125,86, 32,48,56,56;48, 32,8 
712@ FOR J=1 TO 13:READ S$CJJINEXT J 
7136 DATA’? A "2 2 °5"3 3's "4 4 By" 
39 ","6 6 ","?2 2 ","8 8 ","9 9 ","1818" 
2131 DATA"11IJ ","12Q ","°13K " 

7166 FOR J=1 TO 13 

7170 CASCJI=H=LEFTSCS$CJ),23+CHRSCBI+RIGH 
TSCS$CJI,2)+"N0" 

2188 CASCJ+13I=LEFT$CS$(JI,23+CHR$(OI+R 
IGHT$CS$(JI,23+"_j" 

7198 CAS$C(CJ+26)=LEFTSCS$CJI,23+CHRSC1I+R 
IGHT$(S$(JI,2)+"z{" 

7208 CA$C(CJ+39J=LEFT$CS$(JJ,23+CHRSC1I+R 
IGHT$C(S$CJI,2)+" 3" 

7205 NEXT J 

7203 REM xx MAKE PEG HOLES +PEGS xx 


35614, 
7588 
7318 
7328 
7538 
7608 
7610 
76228 
7638 
7642 
7658 
7788 


FOR J=1 TO 2:READ R 

FOR K=@ TO 27:READ S 

POKE #B40@+8XR+K,S 

NEXT K:NEXT J 

DATA 33,12,12,;8,9,9,8,12,12 
DATA 93,4,14,215,4,4,21,14,4 
FORJ=@TO? 

READA :POKE46592+J ,63-A 
NEX7TJ 

DATA33,; 18, 12; 33, 33,12,18, 33 
A=8 :B=8 

REM XxX $+Num UAL Xx 

REMXKxk 37 SPACES xx 

SP$=" 

REMXKXK 27 SPACES 

S4$=" 

REMkx 34 SPACES 

S3$=" 


REMX*X 3 SPACES AND 5 SPACES xXx 
SS¢=" “sSPga" e 

P=1 :0=2 

Li=1:L2=1 :L3=1:L_4=6:L5=6 :-L6=6 
XP=37 :OP=37 :X0=37 :00=37 

FORJ=1T015 :READDT$CJ) =NEXTJ 

DATA 123456, 123546, 123645, 124536, 1 
125634, 134526, 134625 

DATA 135624, 145623, 234516, 234615,2 
245613, 345612 
MU$C1)="QOMLMHJLMJHEQONLMHJFEHM" 
WT$C1)="ARAABCARAABCAAARAAAABCD " 
MU$C2)="CEFCERKJLMJHEMLMHJHJFEHM" 
WT$C2)="AAAABCAAAABCAAAAAAAABDD " 
FORJ=@8TO? 

PC$CJI=CHRS(C144+J5) 
IC$CJIJ=CHREC128+I5) 

NEXTJ 

PC$(8J=CHR$(138) 

IC$C8)=CHR$(142) 
FORJ=@TO6 :READWRS$ CJ) -WRECJI=CHR$C1 


2IJ+WR$CJIENEXTJ 


7718 


DATAWRONG...,CHEAT...,0UM - DUM, HE 


Y..That’s not right 


7711 
think 
2712 
7308 
8882 
88190 
8822 
8832 
8840 
8188 
8119 
8128 


DATAEre..yvou can’t do that,ERE..I 
that’s wrong 

DATAAre you trying to confuse me 
RETURN 

FOR J=1]1 TO 4 

PL$(J,;P)="" 

PL$(J,Q)="" 

NEXT J 

RETURN 

FOR J=1TO4 

PL$¢CJ,PJ=PL$(J+6,°) 
PL$CJ,;0J=PL$(J+6, 0) 
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813@ NEXT J 

814@ RETURN 

9800 CLS: TI$="KKKKKKXKKKKKK" :CU=3:GOSUB 
888 

9@@5 TI$="LEVEL OF PLAY" :CU=2:GOSUB8@@: 
WAIT3@2 

9810 TI$="There are 5 
U=CU+4 :GOSUB88@ :WAIT2a@ 
3020 TI¢="Please enter 
CU=CU+5 :GOSUB88@ 

9038 TI$="by pressing a key from 1 to 5 
" :CU=CU+2 :GOSUBS82 

9840 K$=KEY$:X=RNDC1): IFK$=""THENSO4@ 
9845 IFUALCK$)>@ANDVAL (K$) <6THENSQ6O 
9058 TI$="ONLY 1 TO 5S" :CU=CU+2 :GOSUB8a8a 
>GOTOSA49 

30608 LU=VALCK$) :LU=LUX3 
907@ WAIT1@@:TI¢$="LEVEL CHOSEN IS "+K$: 
CU=CU+5 :GOSUB8@8 :WAI T3024 

9888 RETURN 

1Q@@@8 CLS:PAPER 4:INK ? 

1@@3@ FORK=1T012:PRINT :NEXTK 

10048 PLOT12,9,BS¢:PLOT12,14,B5$ 

18845 AS=CHR$C43+CHRS$(27) 
1@@56 PRINTSPCC6IJAG"NC R I B 
Ru 

19860 PRINT CHR$(4) 

10108 K=3:L=9 

10119 REPEAT 

10120 FORJ=4T01@ 

10138 PLOTL,J,2@ 

1Q14@ PLOTK;J,23 

1@15@ NEXT J 

1@16@ K=K+9:L=L+3 

10178 UNTILK> 328 

10175 PLOT2,5,@:PLO7T2,9,9 
18180 FORK=4TO32STEPS 

1819@ PLOTK;5; "A" 

1@280 PLOTK+ 3,9 ,"A" 

10210 NEXTK 

10228 PLOT4,7,CHRE$C1)+"2(" 
18238 PLOT13,7,CHR$C@)+"_ 5" 
18240 PLOT22,7,CHR$C1)+":}" 
18258 PLOT31,7,;CHRE¢C@I+"N0" 
18898 FORJ=1T023 

18908 NU=INTCASCCMIDS$CMU$C13,J5,;133-64) 
19918 WT=INTCASCCMIDSCWT$C1),J5,133-64) 
16928 OC=3:IFNU> 12THENOC=4 :NU=NU-12 
10938 MUSIC 2,0C,NU,10 

18948 MUSIC 1,0C+3,NU,0 

1Q958 MUSIC 3,0C-1,NU,8 

18968 WAITWTX12 

10978 PLAY 7,8,1,3082 

10980 IFJ<18THEN11619 

18990 L=43-J 

10995 A¢="by THE EMMITT" 


levels of play":C 


level required”: 


MAS TE 
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11@@@ PLOT12,;L,3:PLO713,L,A$:PLOT12,Lt+t1 


" i 
5 


1101@ NEXTJ 

11026 PLAYG,8,9,2@ 

11108 WAIT480:CLS:INK3 

11105 POKE48906, 23:POKE480@1,9 

11118 BS="CRIB MASTER by THE 
EMMiT" 

1112@ FOR K=1 TO LENCB$) :A=ASCC(MIDS(B$, 
K,1)):POKE48@01+K,A:NEXT K 

11125 POKE48036, 3 :POKE48937, 66 :POKE4803 
8,66 :POKE48039,8 

11218 TI$="Please enter your 
:GOSUB8288 

11215 TIi¢="then press 
OSUB820 

11228 FORJ=1T014:PRINT :NEXTJ 

11225 INPUTUUS$ 

11238 IFLENCUUS$) <11THEN1124@ 

11232 TI$="NAME TO LONG" :CU=CU+9:GOSUB8 
Q8:WAITS@@:CLS:GOTO1121@ 

1124@ WAIT1@@:CLS 

11250 TI¢$="I?m 
" :CU=8 :GOSUB8828 

1126@ TI$=UU$ :CU=11:GOSUB8a@a 

11278 WAIT2@@:TI¢="So you want to play 

1 


name" :CU=8 


<RETURN> " =CU=11:G 


ORIC pleased to meet you 


me at CRIB" :CU=14:GOSUB880 

1128@ WAIT88@@:CLS 

11998 RETURN 

12808 CLS:PAPER@:INK2 

12802 FORJ=1TO?:PRINT :NEXTJ 

12804 PRINTPC$(C8) IC$C4)PCH$CA) "KKKKKKKKK 
KKK KKKKKKKKKKKKKKKKKKKK 'PCS(BI 

12@05 PRINTPC$( 8) IC$(4I)PC$C(6) 'KKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKK “PCH$( OI 

12006 PRINT:PRINT" THIS IS SIX CARD CR 
IBBAGE FOR TWO" :PRINT 

128007 PRINTSPCC15) "PLAYERS" :PRINT 

12088 PRINT:PRINTSPCC8)"ORIC IS YOUR OP 
PONENT" 
12818 PRINT 

12014 PRINTPCS$C8)IC$(4IPCHC6) 'XXKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKK “PCH$(B) 

12015 PRINTPC$(8) IC$C4IPC$(6) "XXKKKKKKX 
KKKKKKKKKKKKKKKKKKKKKKK "PC$(OI 

12816 GOSUB28@0@@:CLS 

12018 PRINT =:PRINT:PRINTSPCCI@IPCECZIICS 
C1J"THE CRIB BOARD "SC$(@) 

12022 PRINT:PRINT" The holes at the ext 
reme right are” 

12824 PRINT"where the“ IC$C1)"PEGS"IC$C2 
J"mark @ (Zero) at the" 

12826 PRINT"start, and they are subsequ 
ently the final holes in the game." 
12028 PRINT:PRINT" The score is recorde 
gd by the pegs" 


128038 PRINT"which are moved from right 
to weft," 
12832 PRINT"then back along the 
track?’?," 
12034 PRINT"then around the 
e more" 
12036 PRINT"until the score 
21"TC$C2) "or" IC$C13I"OQVER" 
12838 PRINT:PRINT" Each player has his 
own ?track?" 
12048 PRINT"and"IC$C1)"2"1C$C2) "pegs. E 
ach new score is marked" 

12042 PRINT"on the board by taking out 
the" 

12044 PRINT"trailing peg and placing it 
in front" 

12046 PRINT"of the 
ppropriate" 

12048 PRINT"number of 
12052 GOSUB2008@0:CLS 
12854 PRINT :PRINTSPCC1@JPCE$(3) IC$(OI"IN 
STRUCTIONS “PC¢#(Q) 

120858 PRINT:PRINT"” 
to a score of" 

1286@ PRINTIC$(5)"121 
C$C2)"0r more to win" 

12062 PRINT:PRINT 

12064 PRINT" Both players cut 

for the" 

12866 PRINT"deal 
>PRINT 

12068 PRINTPC$C1iIIC$C@ISPCCB6)" 

a value of 1" 

1207@ PRINTPCS$C1IIIC$(@I" 
€ J,Q;K J value 19" 

12072 PRINT:PRINTPC$C3) IC$(@) "THE DEAL 
:- "PC$(@) :PRINT 

12074 PRINTICS$C(S)"6"IC$C2)"cards are de 
alt to each player face down" 

128076 PRINT:PRINTPC$C3)IC$(@3I "THE BOX 
2- "PC$C@I =PRINT 

12878 PRINT" Look at your hand and sele 
et"IC$CSI"2"IC$C2) "cards" 

1207293 PRINT"to put in the" IC$C5)"BOX"IC 
$02) "face down. "IC$CSI"ORIC" 
1208@ PRINT"does Likewise. 

4 the play" 

128082 PRINT" the" IC$CS5) "BOX" IC$C2) "belo 
ngs to the"IC$(5) "DEALER" 

12084 GOSUB2@088:CLS 

12086 PRINT:PRINTPCS$C3) IC$(@)" THE START 
ER :- “PC$(Q@):PRINT 

12088 PRINT" The remaining cards are cu 
t by the" 

12098 PRINT"non-dealer, 
takes the” 


inner ? 


%*track? onc 


is"IC$C13"1 


leading peg by the a 


points Cscore)" 


This game is played 


> PEGS’ 


Cpoints "I 


the cards 


-—- highest card deals." 


ACE has 


COURT cards 


At the end o 


and the dealer 


12692 PRINT"top card 
urns it” 
12094 PRINT"over as the" IC$(5) "STARTER" 
IC$C2)"card. If the" 
12096 PRINT"starter card 
CK"IC$C2)"the dealer” 
12638 PRINTIC$CS5)"PEGS 2" IC$C2Z)"points" 
LES$CiI" for his HEELS?" 

12180 PRINT:PRINTPC$C3)IC$(@I" THE PLAY 

i- "PC$C@):PRINT 

12182 PRINT"The non-dealer plays the fi 
rst card" 
12104 PRINT" followed by the dealer. 

face" 

12146 PRINT"values of 
ed" 

12188 PRINT"together and called as they 
are" 

12118 PRINT"p layed, 
total" 

12112 PRINT"nust not exceed"IC$(5)"31," 
TC$C2)"1f you find" 

12114 PRINT"you cannot play because the 
total" 

12116 PRINT'will exceed"IC$(SI3"B1"IC$C2 
J"you" IC$C@IPC$C3I"NUST PASS. "PC$(O) 

12118 PRINT"If the opponent can still p 
hay a card" 

1212@ PRINT"he must play until 
cards are" 

12122 PRINT" laid, or he too 
to" IC$CQ@IPC$(3) "PASS. "PC$(O) 

12124 GOSUB2@08@:CLS 

12126 PRINT:PRINT:PRINT:PRINT :PRINT 

12128 PRINT:PRINT" If either player st 
itl has cards 

1213@ PRINT" left 
eries is" 

12132 PRINT"p> layed up 
C23 "starting with the" 

12134 PRINT"player whose 
bon 

12136 PRINT:PRINT:PRINT" During the pla 
y certin scores can" 

12138 PRINT"be"IC¢$C5)"PEGGED" 

12148 GOSUB2@8@@:CLS 

12142 PRINT:PRINTSPCCSIPC$(3) 1C$C1I3"SCO 
RING DURING THE PLAY "“PC$C@):PRINT 

12144 PRINTIC$C1)" AI" ICSC(2)" If the 
exact total of "IC$(3)"15"IC$(2) "can" | 

12146 PRINT"be reached, then"PC$(7IICS$C 
1J"PEG ?2 for 15’? "PC$C@I:PRINT:PRINT 

12148 PRINTIC¢$(1)" BI" IC$C2)" It the 
card played is the same" 

12i5@ PRINT"rank as the 
d then" 


from the cut and t+ 


is a’ IC$CS)"JA 


The 


the cards are add 


but the culminating 


all his 


igs obliged 


in his hand, another s 


to" IC$C5)"31,"1C$ 


turn falls nex 


last card playe 
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42152 PRINTPCS$C7IIC$C1I"PEG °2 for a PA 
IR? "PC$(O):PRINT :PRINT 
12154 PRINTIC$Cij" Ci" ICsC2)" If the 
card played is the same"; 
12156 PRINT"rank as the 
C$C2)"cards played then" 
12158 PRINTPCSCZIIC$C13"PEG ’°6 for a PA 
TR ROYAL? "PC$(Q) :PRINT :PRINT 
12168 PRINTIC$C1)" DI"IC$C2)" 
card played is the same"; 
12162 PRINT"rank as the 
C$C2)"cards played then" 
12164 PRINTPCS$C7AIIC$C1)I"PEG 712 for a D 
OUBLE PAIR ROYAL?’ "PC$C@) 

2166 GOSUBZ2@008:CLS 
12168 PRINT:PRINTIC$C1I)" EV" IC$C23" 
the card played taken in" 
12178 PRINT"relation to the 


last"IC$C3)"2") 


Last" IC$(3)"3"1 


immediately 
12172 PRINT"preceeding cards, forms a] 
C$C3)"RUN of 3" 

12174 PRINT"or more cards; then" 

12176 PRINTPCS$C7IIC$C13)"FEG 21’ for 
h card in the RUN"PC$(Q) 

12178 PRINT:PRINTIC$C1)" FI" IC$C2)" 

{ the card played reaches"iC$(3)"31" 

12188 PRINT"exactly then" 

12182 PRINTPCS$C7IIC$CiJ"PEG *2? for 
O"PC$(B) 

12184 PRINT:PRINTIC$(C1)" GI"IC$C2)" 
he last player who brings" 
12186 PRINT"the total closest to"IC$(3) 
nay 
12188 PRINTPC$C7IICS$C1I"PEGS ° 1? 
GO"PC$(Q) 
2198 GOSUB2@0@0:CLS 
2192 PRINT :PRINT:PRINT:PRINT : PRINT :PRI 
NT?PRINT:PRINT" When there are no more 
cards to” 

12194 PRINT"play, the players then scor 
e their" 
2196 PRINT" individual hands; 
Lest." 
12198 PRINT'At this stage the" ICS$(5SI)"ST 
ARTER'IC$(2) "card is" 
12268 PRINT"used to form a’ IC$C5SI)"5 car 
Nand" IC$C2)" for each" 
12282 PRINT"player and a’ IC$C5)"5 card 
hand" IC$C2)"for the BOX," 

12204 PRINT"which belongs to the" IC$(5) 
"DEALER" 

12206 GOSUB20@8@:CLS 

122@8 PRINT:PRINTSPCC8IPC$C1IIC$(63"SCO 
RING THE HANDS “PC$(@) 

12211 INK4 

12212 PRINT:PRINT" 


for a 


the deale 


15’s 
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»"ICS$C@IPCS$C3I"PEG 2" 

12214 PRINT:PRINT" PAIRS 
:"TC$CBIPCS$C3I"PEG 2" 

12216 PRINT:PRINT" PAIR ROYAL 
:"IC$C@IPC$C3I"PEG 6" 

12218 PRINT:PRINT" QOOUBLE PAIR ROYAL 
s"IC$(@IPC$C3I"PEG 12" 

1222@ PRINT:PRINT" RUNS 

rdsJ ="IC$C@IPC$C3I"PEG 1" 


C3 or more ca 


12222 PRINTSPCC27IICS$(C@IPC$(3) "per card 


12224 PRINT:PRINT" FLUSH in HAND 
s"IC$¢C@JPC$(3)"PEG 4" 

12226 PRINT:PRINT" FLUSH in HAND + STA 
RTER :"IC$C@IPC$C3I"PEG 5" 

12228 PRINT:PRINT" FLUSH in BOX + STAR 
TER = ="IC$C@IPCEC3I"PEG 5" 

12238 PRINT:PRINT" JACK (Cof the same 
suit" 

12232 PRINT" as the STARTER) 
"TC$C@IPC$C3I"PEG 1 for"; 

12234 PRINTSPCC27I)ICS$C@IPC$C3I"his NIB’ 
su 

12236 GOSUB28088:CLS 

12238 PRINT :PRINT =PRINTSPCC11IPC$C6JIC$ 
CBI"CONTROL KEYS "PC$(O) 

12242 PRINT :PRINT :PRINT :PRINT 

12244 PRINTIC$C1)" ANY KEY : CUT 
S CARDS FOR DEAL" :PRINT 

12246 PRINTIC#C2)" ?%P? : PAS 
S":PRINT :PRINT 

12248 PRINTIC$C3)" 1 TO 6 : PLA 
YS or PUTS CARD" 

1225@ PRINTIC$C3)SPCC18)"IN BOX" =PRINT 

12252 PRINT" SPACE BAR CUTS CAR 
DS IN PLAY" :PRINT :PRINT 

12254 PRINTPC$C6)IC$C4)" DO YOU WANT A 
PING WHEN PEGGING "PC$(B8I 

12256 CU=28:GOSU8480 :BELL=FALSE 

12258 IFA$="Y" THEN BELL=TRUE 

12268 CLS:FORJ=1TO9:PRINT :NEXTJ 

12262 PRINTICS$C8IJIC$CS3ISPCC6I"DO YOU WA 
NT TO READ THE" 

12263 PRINTICS$(C8) 1C$(5ISPCC6)"DO YOU WA 
NT TO READ THE" 

12264 PRINTIC#(C8) IC$CSISPCC9)" INSTRUCT I 
ONS AGAIN" 

12265 PRINTICS$C8)IC$CSISPCC9)" INSTRUCTI 
ONS AGAIN" 

12266 CU=19:GOSUB48¢ 

12268 IFA$="Y" THEN1208@ 

12276 RETURN 

20800 PLOT1,25,12:PLOT2,25,1:PLOT6,25, " 
Press ANY KEY to continue" 

26085 REPEAT ?X=RNDC9) :UNTILKEY#<>"" 

20018 RETURN 


PING 
CLs 
PAPER@ : INK2 
4 PLOT14,9,CHR$C10)+"PITFALL 
S PLOT14, 18, CHR$C1Q)+"PITFALL 
1@ DATAA2, 17,A@,08,BD,15,BD,A8,C@,64,Fa0, 
8,CA,E@, aa 
11 DATADG,F3, 4C, 22, 98 
12 DATAAS, 20, 9D, 15,80, 98,CA, 90, 15,80,CA, 
4C,@D,98 
13 DATAAE, 23, BD, E@, 20,F0,8,4C, 31,98 
15 DATAAS,61,8D, 23, BD 
16 DATAAE, 15,8D, 8E,B5, BD, A2, 28, 8E,15, BD 
1? DATAAZ, @8,AG, 28, BD, 85,80, A8, CB, 64,Fa, 
8 
18 DATAES, EQ, 1F,D@,F3, 4C,5E,98 
2@ DATAAS, 20, 90,B5, 80, 98,£8,90,85,8D,£8, 
4C, 49,98 
21 DATAAE,B7,BD,E@, 28,F@,3,4C, 6D, 98 
23 DATAAS, 61,80, 87,80 
24 DATAAE, D4, BD, 8E, 74, BE, A2, 20, 8E, 04, BD 
25 DATAA2, 1F,AG, @,BD,55,BE,AS, CO, 64,FQ, 
8, CA,EQ, a2 
26 DATADG,F3, 4C, 9A, 98 
2? DATAAS, 28, 90,55,BE,98,CA,9D,55,BE,CA; 
4C, 85,98 
28 DATAAE, 72,BE,E@,28,F@,3,4C,A9, 98 
38 DATAAS, 61, 8D, 72,BE 
31 DATAAE, 55, BE, SE, FS, BE,A2, 20, 8E,55,BE 
32 DATAA2, @8,AG, 82,80, F5,BE,AS, C8, 64,FQ, 
8 
33 DATAES,E@, 1F,00,F3 
34 DATA4C, D6, 98 
35 DATAAS, 20, 90,F5,BE, 98,68, 90,F5,BE,£8, 
4c,C1,98 
36 DATAAE,F7,BE,E@,20,F@,3 
3? DATA4C,ES, 98 
38 DATAAS,61,8D,F7,BE 
39 DATAAE, 14, BF, 8E,B4,BF,A2, 20, 8E,14,BF 
4Q DATAA2, 1F, AQ, @2, 8D, 95,BF,A8, C8, 64, Fo, 
8,CA,E@, aa 
41 DATAD@,F3,4C, 12,99 
42 DATAAS, 20,90, 95, BF, 98,CA, 9D, 95, BF, CA, 
4C,FD,98 
43 DATAAE,B2,BF,E@,20,F0,3,4C,81,99 
45 DATAAS, 61, 8D, 82, BF 
46 DATAAE,FB,8C, EQ, 20,F8,3,4C, 39,99 
48 DATAAS,61,8D,FB,BC 
49 DATAAE, 8F,BD,E@, 20,F@,3,4C, 3F, 99 
51 DATAAS,61,8D, 8F,8D 
52 DATAAE, 4A;,BE,E9,20,F8,3,4C,4E;,99 
54 DATAAS, 61,80, 44, BE 
55 DATAAE, CF, BE, E@, 20,F@,3,4C, 50,99 
5? DATAAS, 61,80, CF,BE 
58 DATAAE; 8A, BF, EG, 20,F@,3,4C,6C, 99 
68 DATAAS, 61,80, 8A, BF, 6a 


DATA33, 33,51,45,33,33,51,45 
DATAG8, 88,62, 98, 28, 22, 16,48 
DATAG8, 68,62, 88, 28,52,94, 286 
DATA@8, 28,62,63,61,59, 38,12 
DATA, 34,55,63,63,63,57,16 
DATAG@8,61,63,63,63, 63,29, 24 
DATA63, 63,55, 63, 63,63,57,16 
DATAG8, 61,63, 63, 63,63,63,63 
DATAGZ,81,11,15,31,15,85,81 
DATAGG, 8B, 32,52,68,62,56, 16 
DATAG8, 8,62, 08,28, 28,28,54 
DATAG8, 42,68,88,12,18,49,0) 
DATA63, 63,63, 63,62, ~4,88, 08 
DATAGB, 84,45, 63,63,63,63,63 
DATAS3, 63,63, 63, 63,63,63,63 
DATA63, 62,68, 60, 48,56, 48, 32 
DATA63, 62,56, 48, 48,56, 48, 628 
DATAS6,; 62,68, 48, 48, 48, 32, 32 
DATA32, 32,32,48,56,56,56, 648 
DATAI1S, 87,87, 97,03,01,01,81 
DATA@1,61,83,03,83,15,15,@7 
DATA1S, 63,07, 83,83,987,31,63 
18@ FORA=6T0364 :READDS$ :D=VALC"#'"+D$) :POK 
E#98@6+A,0:CS=CS+D :NEXT 
185 IFCS<>518391THENPRINT'"MACHINE CODE ER 
ROR" :~ND 
11@ FORA=46856T047@031 :READD:POKEA,D:NEXT 
115 CLS :PAPER4:INK? 
1286 GOSUB68A2 
198 X=6?Y=25 :0=4:L=INTCRNOC1IX6)+1 
200 CLS :PAPER@:INK3 
201 IFL=7?THEN48Q@ 
IFL=-1THEN3@@@ 
FORA=@8T026 :PLOT@,A,L+1 =NEXT 
PLOT18,7; "a" :PLOT6,11,"a":PLOT33, 15, 
>PLOT6,19, "a" :PLO~33, 23, 


PLOT1;6;" 
fefefefej 
206 PLOT1,1@0," 
efefefefej 
207 PLOT1,14,"ifefegRfefefefefefeferefef 
efefefaJ 
268 PLOT1,18," 
efefefgfej 
209 PLOT1,;,22; 
efefefas 
216 PLOT!, 26; 
efefefgfej 
2228 CALL#S88a 
221 PLOT1,19,"00q" :PLOT1,26,"o0r":PLOT1, 
21,"o00s":PLOT1,22, °mmm" 
222 PLOT1,18,"oo00ef": 
225 PLOT1,175“"o0¢6" :PLOT1;16; “oor” »PLOT1,; 
135; “o0q" s=PLOTIs5 145 “oooe f9 f 


iehefefefefe 


iaefefefefefegefefefef 


iaefefefefefefefefefef 


ifefegefefetfefefefetefefef 


ifefefefefefefefefefefefef 
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PITF. 


ALL 


236 PLOT1,13,"o0o0s":PLOT1,12,"oor":PLOTI, 
11,"o~q" :PLOT1,10, "ooo0efaf 

235 PLOT1,9; "oos":PLOT1,8,; "oor" :PLOTI;27,5 
“ooq":PLOT1,6, "oooefefefefe 

feeefa 
239 PLOT1I,;5; “oor 

24@ PLOT1,4, "oTRUEs 

241 PLOT1,@,"coco00000000000000000000000 
0000000000 

242 PLOT1,1,;"o000000000000000000000000000 
0000000000 

243 PLOT1,2, "commmmmmBmmmmmmmnmmmmmmammmmm 
mrammmmmmmm 

244 PLOT1,3,"0q 

258 FORA=6TO22STEP4 

251 PLOT34,A,"efoo" 

292 PLOT34,At1," to 

253 T34,At+2," uo 

254 T34,A+3," vo 

255 NEXT 
256 PLOT34,26,"efoo 

2880 PLOT19,1," INJURIES"+STR$CDI+CHR$CL+ 
1) 
296 PLOT2,1," LEVEL"+STR$(LI+CHRS$CLt+1) 
300 IFX=SANDY=25THENL=L-1 :X=32:7=5:GOTO2 
aa 

301 IFX=33ANDY=STHENL=L+1 :?X=6:Y=25:GOTO2 
ag 

302 IFSCRNCX+1, Y3=1@Q@THEN1G@Q 

303 IFSCRNCX-1, Y)=1@~THEN1@0@ 

305 CALLHS880:PLOTX,Y,A$ 

386 Q=INTCRNDC1)*35):1FQ=STHENPLOT25,9, " 
d" :SOUND1,999,@:PLAY?,@,1,2 

gag 
320 R=PEEK(52@) : IFR=56THEN3@82 
321 IFR=122THENGOTO6QQ@* LEFT 

322 IFR=188THENGORO5@Q’ RIGHT 
323 JFR=156THENGOTO?@Q@’ UP 

324 IFR=18@THENGOTO8@Q’? DOWN 

325 IFR=132THENGOTOS@Q@? JUMP 

38@ CALLH98@@ 

385 CALL#982@ 

338 GOTO32@ 

3@@ IFSCRNCX+1, YJ=1@@THENIGQ@ 
5316 PLOTX,Y," ":x=X+1 

515 CALL#95@@:SOUND1&xXx3+9,6 
520 IFX>34THENX=34 

525 PLOTX,Y,"c" :SOUND1,X,@ 

538 A$S="c":GOTO38B 

64@ IFSCRNCX-1, YJ=1@BTHEN1 000 
618 PLOTX,Y," "sxX=xX-1 

615 CALL#950@:SOUND1,Xx3+39,6 
620 IFX<STHENX=5 

625 PLOTX,Y,"b":SOUND1,X,@ 

638 A$="b" :GOTO38G 

700 IFSCRNCX, Y-1)=32THENGOTO38@ 


BVeZzvpewvwps~uouy7 sy 
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7108 FORP=YTOY-4STEP-1=IFSCRNCX, P-13=108T 
HEN1@8@ 
715 CALLH9588:SOUND1,PxX9,? 
PLOTA;P,; "k" :CALLHI8G@8:WAITS:PLOTX,P, 
=NEXT?Y=P+1:2PLOTX,Y,"k " 
SOUND1,P,@ 
GOTO388 
REM 
JF Y=2S5THEN3@@ 
IFSCRNCX, Y+33=32THENGOTO380 
PLOTX,Y," " 
FORP=Y+1TOY+4:1IFSCRNCX,P+1)=1@@THEN] 


CALL#950@ :SOUND1,Px*9,7 
PLOTX,P,"k" :CALL#S88@:WAIT3:PLOTX,P, 
iNEXT :Y=P-1:PLOTX,Y,"k " 
SOUND1,P,0 
GOTO38@ 
388 IFX<60RX>33THENGOTO388 
384 FORP=YTOY-2STEP-1 
385 SOUND!, (PX2),6 
918 PLOTX,P,"L" :CALL#9800:WAIT3:PLOTX,P, 
* UNEXT ?Y=P+1 
315 IFA$="b"THENX=X-1ELSEX=Xt1 
928 FORP=YTOY+2 
925 SOUKD1, (Px2),6 
93@ PLOTX,P,"l" :CALL#98@08:WAIT3:PLOTX,P, 
" NGUNEXT 2 Y=P-] 
948 PLOTX,Y,"k 
945 SOUND1,99,90 
958 GOTO382a@ 
1868 PING:PLOTX-1,Y," 
1026 D=DB+1:PLOT19,1," 
CHRSCL+1) 
1825 IFD=4THENGOTO2000 
1838 GOTO308 
2068 REM DEAD 
2828 CLS:PRINT :PRINT:PRINT:PRINT:PRINT:P 
RINT 
2830 PRINT,,"YOU OIE FROM YOUR INJURIES. 
2835 WAIT28@ 
2848 FORA=1080TO128@STEP12 
2858 SOUND1,A,@:SOUND2,A+2,@ 
2668 PLAY?,@,1,40@0:WAIT1 =NEXT 
2670 GOTO5Gaa 
3808 CLS:FORA=2T025:PLOT1,A;, "oq" :PLOT34, 
A, "vo" NEXT? INK1 
3862 PLOT1,2, “oommmmmmmmmmmmmmmmmmmmmmmm 
“Aamm 
30805 PLOT1,26, “oohhhhhhhhhrhhhaAhhhbhhhbhhn 
hhhhhhhhhhoo 
301@ FORA=2TO25 :PLOT34,A,"1":PLOT34,A-1, 
" "SWATBS 
3826 SOUND1,A*X1@,@:SOUND2,AX11,@:PLAY?,@ 
»1,1688 
3038 NEXT:PLOT34,25," ":EXPLODE 


INJURIES" +STR$(DI+ 


PITFALL 


3648 GOTO5ae—a ‘5@2¢ GETT$ 

4090 CLS:PAPER4:IN~2 S830 IFT$="Y"THENRUN1I9@ 

40128 FORA=2@TO026:PLOT1,A;,"co000000000000 5848 IFT$="N"THENEND 
00.000000000000000000000" :NE 5850 GOTO582¢8 

6888 REM INSTRUCTIONS 
ORA=1TO38:PLOTA,19,"c":PL~TA-1,139, 6818 PLOT4,6,"LEFT ARROW 

IT3:SOUND1 ,AX2,9:NEXT 6828 PLOT4,8,"RIGHT ARROW....... RIGHT 
LOT38,19," “=PING 6838 PLOT4,18, "DOWN ARROW 

OTOS8ea 684@ PLOT4,12, "LIP ARROW. .~ 

LS :PAPER4 : INK? 665@ PLOT4,14, “BPACE BAR 
LOT1@,1@,CHR$C18)+"ANOTHER GO ? | 686@ PLOTS, 24, CHR$C12)+"PRESS ANY KEY TO 
LOT1@,@9,CHR#(10)+"ANOTHER GO ? START 

LOT14,;12, "CY-N3 6678 GETAS:RETURN 


REM FOOTBALL POOLS FULHAM 
REM GRIMSBY 
REM £ HOLLISTER HUDDERSFIELD 
REM LEEDS 
REM FOR ORIC-1 CUSES 16K OF MEMORY) MAN CITY 
REM MIDDLESBORO 

IF PEEKC #0408) <>3 THEN GOTO 2742 NOTTS C 

REM DIVISION 1 : OLDHAM 
DATA ARSENAL OXFORD 
DATA ASTON VILLA PORTSMOUTH 
DATA CHELSEA SHEFFIELD U 
DATA COVENTRY SHREWSBURY 
DATA EVERTON WIMBLEDON 
DATA IPSWICH WOLUES 
DATA LEICESTER DIVISION 3 
18@ DATA LIVERPOOL BOLTON 
118 DATA LUTON : BOURNEMOUTH 
12@ DATA MAN LTD BRADFORD 
13@ DATA NEWCASTLE BRENTFORD 
148 DATA NORWICH TA BRISTOL CTY 
159 DATA NOTTS FOREST BURNLEY 
168 DATA Q.P.R. BRISTOL ROU 
17@ DATA SHEFFIELD W CAMBRIDGE 
18@ DATA SOUTHAMPTON DERB 
19@ DATA STOKE DONCASTER 
288 DATA SUNDERLAND GILLINGHAM 
219 DATA TOTTENHAM HULL 
228 DATA WATFORD LINCOLN 
230 DATA W.B.A. TA NEWPORT 
24@ DATA WEST MILLWALL 
250 REM DIVISION 2 ORIENT 
268 DATA BARNSLEY PLYMOUTH 
278 DATA BIRMINGHAM PRESTON 
288 DATA BLACKBURN READING 
292 DATA BRIGHTON ROTHERHAM 
388 DATA CARDIFF SWANSEA 
31@ DATA CARLISLE WALSALL 
328 DATA CHARLTON WIGAN 

338 DATA CRYSTAL PLC YORK 
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AR 


LOAD 
115@ 
68 
178 
8 


298 
282 
1212 
1220 
238 
246 
1258 
260 


Mein 


DIVISION 4 

ALDERSHOT 

BLACKPOOL 

BURY 

CHESTER 
CHESTERFIELD 
COLCHESTER 

CREWE 

DARL INGTON 

EXETER 

HALIFAX 

HARTLEPOOL 

HEREFORD 

MANSFIELD 

NORTHAMPTON 

PETERBOROUGH 

PORT VALE 

ROCHDALE 

SCUNTHORPE 

SOUTHEND 

STOCKPORT 

SWINDON 

TORQUAY 

TRANMERE 

WREXHAM 

IMHC92) :‘DIMACS2) 

DIMN(92) :DIMDA$C92) -DIMRA$CS2) 
FORD=1T092 
READDAS (DI 
NEXTD 
FORN=1 T0392 ?-NCNJ=PEEKC#@40@+N3 =NEXTN 
CLS :PRINT 
PRINT" 
PRINT 
PRINT 
PRINT" } 
PRINT 
PRINT"2 OBTAINING THE FORECASTS" 
PRINT 
PRINT 
PRINT 
PRINT'4 ENO PROGRAM AND NOTES ON RE 

ING" 
PRINT 
PRINT: INPUT'CHOICE 1,2,3,4" 5M$ 

M=VAL CMS) 

IFM>4 ORM<1 


MENU 


UPDATING THE FORM DATA” 


"3 SAYUING UPDATED FORM" 


ORM<> INTCM3 THEN PING:G 


OT01848 


ON M GOSUBI218, 1688, 2379, 2748 
GOTO 1848 
CLS =PRINT 
PRINT" 
PRINT 
PRINT"WHICH DIVISION NEEDS UPDATE" 
PRINT 

PRINT" CHOICE 


UPDATING THE FORM" 


1,2,3,O0R 4 


D\ianne 


12728 
4282 
1299 
1300 


PRINT 

INPUT"DIVISION" ;D$ 

D=VAL CDS) 

IFB<1 ORD>4 ORD<>INTCD) THEN PING:G 


OT01218 


1318 
13208 
1338 
1346 
1354 
1368 
1370 
1380 
1390 
1480 


GOSLUB 2538 

CLS :PRINT 
PRINT“UPBDATING FORM 
PRINT 
PRIN7T"HL=HOME LOSE AL=AWAY LOSE" 
PRINT"HD=HOME DRAW AD=AWAY DRAW" 
PRINT"HW=HOME WIN AW=AWAY WIN" 
PRINT'N=NO UPDATE REQUIRED" 

PRINT 
PRINT"ENTER BAST RESULT.HL,HD, HW, AL 


DIVISION "D 


»AD, AW, N" 


1418 
1429 
1438 
1440 
145d 
1460 
1478 
1488 
1430 
1508 
1518 
1526 
1530 
1548 
1558 
1562 
1578 
15828 
1598 
1602 
1618 
1628 
16@2 
1649 
165d 
1668 
1679 
1688 
1698 
1788 


GOSUB265@ 

FORT=S TO F 

PRINTDASCT)3:INPUT R$ 

PRINT 

J=8 

IF R$="HL" THENR=6: 

IFR$="HD" THENR=1 > 

TERS="HW" THENR=3: 

IFR$="AL" THENR=1: 

IFR$="AD" THENR=4 : 

TFR$="AW" THENR=S 

IFR$="N" THENR=@:J=1 

IF J=@THENP ING :GOTO1439 
NCTJ=R+PEEKC#O406+T J 
POKE#@40@+T,NCT) 

NEXTT 

PRINT 

PRINT'END OF DIVISION "OD 

PRINT 

INPUT"ANY MORE UPDATING Y/N" 34% 
IFAS <> "Y"ANDASO'N'THEN GOTO1600 
GOSUB263¢ 

IF AS="Y"THEN GOTO 1214 

RETURN 

CLS :PRINT 

PRINT" OBTAINING 
PRINT 
INPUT"DIVISION 1,2,3,OR 4 " 
D=VAL CD$ 3} 

TFD<1 ORD>4 ORD<D>INTCO) THEN PING:G 


THE FORECASTS" 


10% 


OTO165¢ 


1718 
1720 
1738 
1748 
1738 
1768 
1772 
1780 
17398 


CLS :PRINT 

PRINT"FORECASTS FOR DIVISION 
PRINT 
GOSUB2530 

FORG=STOFSTEP2 

PRINTSPCC17) 3G+15SPCC1)39A$(G+1) 
PRINTCHR$C113 5G;SPCC 13 5DA$CG) 
NEXTG 
PRINT 


"0 


1888 INPUT"HOW MANY GAMES IN THIS DIVISI 2288 INPUT"ANY MORE FORECASTS Y/N" 3Q$ 
ON" 3B$ 2298 IF Q$="Y" THEN GOTO 1652 

1818 IFASCCB$)=48 THEN GOTO1653 2388 IFQ$<>"N" THENGOTO228¢ 

182@ B=VAL(BS$) 2318 PRINT 

183@ IFB>CF+1-S)72 ORB<>INT(B) ORB<1 THE 2328 PRINT"END OF FORECASTING" 

N PING:GOTO272@ 2338 PRINT 
1848 GOSUB2652 2348 PRINT'©RESS ANY KEY FOR MENU" 
858 FORU=1TOB 2358 GETA$ 
186@ PRINT'MATCH NUMBER "UJ 2368 RETURN 

878 PRINT 2378 CLS:P2RINT 

188@ INPUT"HOME TEAM NUMBER" 3H$ 2388 PRINT'SAUING UPDATED FORM DATA" 
1898 H=VAL CHS) 2390 PRINT 
19@@ IFH<S ORH>F THENPING:GOTO188@ELSEPR 2488 PRINT] PLACE CASSETT 
INTSPCC253CHR$C11 DASH) 2413 PRINT" INTO TAPE RECORDER" 

1918 PRINT 2428 PRINT 

92@ INPUT AWAY TEAM NUMBER" 34% 2438 PRINT"2 SET COUNTER TO REGLUIRED PO 
938 A=VUALCAS) SITION" 
1948 IFA<S ORA>F THENPING:GOTO1S2@ELSEPR 244@ PRI 
INTSPCC25)CHR$(11IDASCA) 2458 NT"3 DEPRESS PLAY AND RECORD" 
1958 IFA=HTHENP ING:GOTO192@ 2460 PF 

196@ HCUJ=H 2470 r’ PRESS ANY KEY TO START SAU 
197@ ACUI=A ING" 
198@ W=NCH)-275 2488 
199@ xX=INTCW71@) 2498 PRINT’S SAVED AT SLOW SPEED" 
2808 Y=W+x 2588 GETA$ 

2019 2=W+X+XrX+X 2510 POKEH949a,3 

2828 CHN(A)-75 2520 CSAVE'".S,4#@490,FHa45C 

203@ IFC<Y ORC=Y THENRASCUI="1! 2530 PRINTIPRINT SPRINT :2R INT 

2049 IFC>2 GRC=2 THENRASCUI='2" 2548 PRINT UPDATED PROGRAM SAVED" 
2050 IFC>YANDC<2 THENRASCUI="X" 2558 PRINT 

2062 PRINT 2560 PRINT PRESS ANY KEY FOR MENII” 
2072 NEXTU 2578 GETAS 

2088 PRINT 2588 RETURN 

2898 PRINT'TYPE ANY KEY FOR PRINTER INST 2598 [FO=i THEN 

RUCTIONS AND FORECASTS FOR 260Q@ {[F9~2 THEN 

DIV "5 2618 {FO0~-3 THEN 

@8 GETAS 2622 [F0=4 THEN 

118 GOSUB2692 2638 IFD>4 THEN PI 

28 PRINT 2648 RETURN 

3Q PRINT'TURN ON PRINTER IF WANTED" 2658 DOKEB21,<868a 

4@ PRINT 2668 POKEB23,9 

15@ INPUT'OUTPUT TO PRINTER YAN" 3% 2672 FOURL--1709:PRINTOHR 

60 IFP$<>"Y"ANDP$<> °N" THENGOTO2159 XTL 
178 PRINT:°RINT 2680 RETURN 

82 NT'FORECASTS FOR DIVISION "9 2690 DOKE621.43380 

2198 i. 2788 POKE623,27:CLS 

2200 =1T0B 2718 RETURN 

221@ K=13-LENCDAS$CH(Q) 3) 2728 PRINTCHR$C1175S°C°38) 

2220 J-13-LENCOA$(A(O3 1} 2738 PRINTCHR$C111+CHRE(777:00T01898 
2238 INTOASCHCQIISSPCCKI:"U " sDASCACA 27408 CLS:°RINT 

J33SPCCJ13RASCO) 2758 PRINT'°ROGRAM TERMINATED" 

224Q IFP$="N"THEN GOTO 2268 2768 PRINT:PRINT SPRINT 

2258 LPRINTDASCHCQJISSPC(KI;°U "DASA 2778 PRINT" NOTES ON RELOADING" 
QIISSPCCJ13RA$CG) 2788 PRINT 

2268 NEXTO 2790 PRINT’? LOAD FORM DATA FILE” 
2278 PRINT:PRINT 2888 PRINT 


NNNNNNNN N 
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FOOTBALL POOLS 


2868 PRINT 
28728 PRINT'S TG RUN WITH NO FORM DATA TA 
PE LOADED TYPE RUN2@ (FOR T 

ESTING)" 
2882 END 


2818 PRINT'2 TYPE NEW AND RETURN® 
2820 PRINT 

4832 PRINT"3 LOAD MAIN PROGRAM" 
284@ PRINT 

285@ PRINT"4 LOAD AT SLOW SPEED" 


EICH-A-SKETCH 


PRINT :PRINTMODE$(MODE),,X,Y3 


REM ETCH-A-SKETCH 


15 REM 2593 RETURN 

2@ REM BY 3088 CURSETX, Y, 3:DRAWX1-xX, Y1-Y,2 
25 REM 381@ CURSETX; Y,;2:DRAWX2-xX, Y2-Y,2 
38 REM PAT COOPER 382@ GOSUB25aa ‘ 
35 REM 383@ CURSETX, Y, 3:DRAWX1-X,Y1~-Y,2 
48 REM OCT. 1984 384@ CURSETX, Y,; 2:DRAWX2-xX, Y2-Y, 2 
45 REM 3038 FB=1 


5@ HIMEMH4FFF 

6@ GOSUB18@00 

182 ON MODE+1 GOSLIBS8@Q, 22028, 2000, 2a0 
@, 3048, 4908, 5002, 6200, 7ea2, saga 

11@ GOSUB190@’ GET KEY 

12@ GOTO1aa 

1082 K$=KEY$ 

1018 X=X+(K$=", "J+(K$="K")+(K$="0"J-C 
K$="7" J—CKS=") "J-CKS="["F3 

1015 IFX<@THENX=@ELSE IF X> 239THENX=233 

1828 Y=Y-(K$=", "J-CK$=","J-CK$="7"J4C 
K$="0"J+CK$="P"J+(K$="[") 

18@3@ IFY<@THENY=@ELSEIFY> 199THENY=199 

104@ IFK$=" “THEN GOSUB152a 

1058. IFK$=CHR$C127) THEN HIRES :MODE=3: 
POKE#26A, 1@:RETURN 

1068 IFK$=CHR$(27) THENGOSUB1 892 

1078 IF K$="\" THEN CALL#51A@:RETURN 


3893 RETURN 

4888 CURSETX, Y, 3:DRAWX1-X, Y1-Y, 2 
4019 CURSETX, Y, 2:DRAWX2-x, Y2-Y, 2 
402@ GOSUB25ea 

403@ CURSETX, Y, 3:DRAWX1-X, Y1-Y,2 
4840 CLIRSETX, Y, 2:DRAWX2-X, Y2-Y, 2 
4890 FB=2 

4899 RETURN 

5@@2 GOSUB25@@’ DETAILS TO SCRN 
5@1@ BASE=2 

503@ GETK$ 

584 IFK$="6" THENBASE=128:GETK$ 
5Q@50 IFK$<"@"ORKS> "W" THEN 5018 
5@68@ CURSETX,Y,3 

5Q7@ I1=ASC(K$)-64 

5088 FILL1,1,1+BASE 

5@9@ MODE=OLDMODE 

5@99 RETURN 


1888 IFK$="-" THEN CALL#5@B@:RETURN 6888 GOSUB25@@’ DETAILS TO SCRN 
1@9@ IF K$="=" THEN CALL#51E2:CLS:RET 6018 POKE#E, X:POKEH#HF, Y 
URN 662@ CALL#500@ °’FILL 


685@ MODE=OLDMODE 

6@6@ PING 

60699 RETURN 

7088 GOSUB25@@’ DETAILS TO SCRN 

7010 GETK$:IFK$<"@" OR K$>"S" THEN 72 


118@ IFK$<"@"ORK$> "3" THENRE TURN 
119@ OLDMODE=MODE :MODE=VALCK$) 
1199 RETURN 

15@@ CURSETX,Y,FB 

1516 DRAWX1-xX, Y1-Y,FB 

1538 CURSETX,Y,FB 

1546 DRAWX2-X, Y2-Y,FB 

1593 RETURN 

1884 X2=X1?X1=x :Y2=Y1:Y1=Y 

1899 RETURN 

2000 CURSETX, Y, C(MODEAND3)~-1 

201@ GOSUB250@’ DETAILS TO SCREEN 
2039@ CURSETX, Y, C(MODEAND3)3-1 

28339 RETURN 

2508 PRINTCHR$(3@)" MODE 

* POSN Y POSN" 


7828 R=VALCK$) 
7038 GETK$:IFK$<"@" OR K$>"3" THEN 72 


7848 R=RK1Q+VALCK$):IFR=@ THEN 7298 
7058 IF X+R>239 OR X-R<@ THEN 7528 
7066 IF Y+R>199 OR Y-R<@ THEN 7588 
7876 CURSETX,Y,3° 

7@8@ CIRCLE R;1 

709@ MODE=OLDMODE 

RETURN 
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75@@ FORI=@TO2KPISTEP 1/R 
7518 XC=X+SINCI)*R 
7528 YC=Y-COSC13*R 

7530 IFXC<@THENXC=@ELSE IFXC> 239 THENXC 
=239 

7548 IFYC<@THENYC=@ELSEIFYC> 1 99THENYC 
=199 

755@ CURSETXC, YC, 1 

256@ NEXT 

2578 PING 

7598 MODE=OLDMODE 

7599 RETURN 

8222 GOSLIB25@@’ DETAILS TO SCREEN 

821@ CSAVE"SKETCH DATA", AHAGBB, EXBFE? 
8220 PING 

8838 MODE=3 

8899 RETURN 

9@@@ GOSLIB25@@’ DETAILS TO SCREEN 

9@1@ CLOAD"SKETCH DATA" 

9828 PING 

9838 MODE=3 

9899 RETURN 
10088 TEXT :MODE=3 :POKE#268A; 12 
1@@1@ X=119:Y=99 :X1=119:Y1=99 :X2=119: 


Y2=99 
1@@20@ FORI=@TOS :READMO$CI J F=NEXT 
1@@3@ DATA" LOADING "," UNPLOT "," P 


LOT "," MOVE "“," DRAW ";" ERASE 


18848 DATA"COLOUR ?"," 
LE ?"," SAYING " 
10858 GOSUB28800° 
10@6@ HIRES 
18870 CALL#S1E2 
18088 HIRES 
188308 POKE#26A, 18 
10899 RETURN 
2080@ READ CH 
2001@ REPEAT 
20020 FOR I=8 TO ? 
20038 READ CU:POKE#B40@+CHxX8+1,CU 
20048 NEXT 
206858 READ CH 
2086@ UNTIL CH=#FF 
20188 DATA123,9;,15;3,5;9,16,32,8 
20118 DATAI24,0,1,2,36,40,48,68,8 
20128 DATAS3; @, 32, 16,9;5;,;3,;15,8 
20136 DATAS4; @, 4514, 2154,45450 
28146 DATA38, @,4;5454,21,1454;,9 
2015@ DATASS, 8, 68,48, 40,36,2,15,9 
28168 DATA43,@,4,8,16,63,16,8,4 
20178 DATAI25,0,8,4,2,63,2,4,8 
20188 DATASFF 
2100@ FORI=#BB88 TO #BBA? 
21818 POKEI.,32 
21828 NEXT 


FILL “ys "CIRC 


INSTRUCTIONS. 


ETCH-A-SKETCH 


258028 CLS 
25819 PAPER@:INK2 
2502@ PLOT10@,1@,"D0 YOU WANT INSTRUCT 
IONS ?" 
2503@ PLOT15,20,"PRESS ’Y? OR ?N*" 
25048 GETK$ 
25058 IF K$="N" THEN 38588 
25068 IF K$<>"Y" THEN 25040 
30008 CLS:PAPER@:INK6 :PRINTCHR$(4) 
30012 PRINTTABC133CHR$(27)"JETCH-A-SK 
ETCH * 
30020 PRINT:PRINT :PRINT :PRINTCHR$( 27) 
") Keys used to control cursor" 
3003@ PRINT:PRINTCHR$(C27)"J direct 
ion are ?-":PRINT:PRINT 
30048 PRINT:PRINTCHR$(27)"J 
n 4" 
30050 PRINT:PRINTCHR$(27)"J 
oOo P £® 
38068 PRINT :PRINTCHR$(27)"J + 
K 2 3 
30078 PRINT :PRINTCHR$(27)"J 
3 . ae 
30082 PRINT :PRINTCHR$(273"J 
H & vite 
38098 PRINT:PRINT:PRINT :PRINTCHR$( 273} 
"Ss Press any key to continue..." 
300939 PRINTCHR$(4) 3 :GETKS 
3818@ CLS:PRINTCHR$(4) 
30118 PRINTTABC1I3)CHR$(27)"JETCH-A-SK 
ETCH." :PRINTCHR$(4) :PRINT 
3812@ PRINT" Several keys are used t 
o select the" 
3613@ PRINT" required mode as follow 
S oan 
30148 PRINT :PRINT 


i 


38160 PRINT" KEY 

MODE" 

30178 PRINT" aa 

see PRINT 

30208 PRINT" dy Sayariiceta WSR aow.y BE DOS 
UNPLOT" 

30218 PRINT" Qeeee tat enkir a ane 
PLOT" 

38228 PRINT" Shae he dd pw kee ag 
MOVE" 

30238 PRINT" eke eh as wk Re aa ge 
DRAW" 

38240 PRINT" ore rere eee. oe 
ERASE" 

30250 PRINT" Saws riage eee arwne 
COLOUR" 

30268 PRINT" Lean de ale be pe es 
FILL” 

382728 PRINT" Ppa dec solo: adie 8 gad hy iD 


CIRCLE" 


Oric Owner 


TCH-A-SK, 


38282 PRINT" 

SAUE" 

38298 PRINT" 

LOAD" 

3830@ PRINT:PRINT:PRINT" 

y key to continue..." :GETK$ 
38318 CLS:PRINTCHR$(4) 
3832@ PRINTTABC13)CHR$(27)"JETCH-A-SK 

ETCH." :PRINTCHR$(4) :PRINT 
303380 PRINT" Other keys produce the 

required" 

3034@ PRINT" function as follows :- 
3835@ PRINT:PRINTSPCC12) "MEMORY FUNCT 

IONS" 

30368 PRINTSPCC12)"---------------- 
38370 PRINT:PRINT" 


nee eee 


epee ee ee oo ee hr ee 


ene eee ere eer ee ee 


Press an 


see ee eon ee 


ee eT 


3@39@ PRINT:PRINT" 
....CLEAR" 

30400 PRINT:PRINTSPCC12)"SCREEN FUNCT 
IONS" 

30418 PRINTSPC(C12)"---------------- 
3042@ PRINT:PRINT" 
»...MARK POINT" 

3043@ PRINT:PRINT" 

we e-FIX LINE" 

3@46@ PRINT:PRINT" 
»..CLEAR SCREEN" 

30478 PRINT:PRINT:PRINT" 
y key to continue...’ 5 :GETK¢ 

3@5@@ IF -PEEKC#5000)=#2@ THEN RETURN 
40@@Q DATA .209C5120B851288285020325020 
@@51A5 

40018 DATA @BCSC8D@F 428205 1EAEAEAZG30 
502828 

4@@2Q8 DATA 51A5S@BCSFFD@F 4EREAEABQQaR0 
eeeaae 

42@83@ DATA 206850A200204851A5SQAC9F ADA 
F22@58 

40048 DATA 51206050A200205851A5QACSFF 
D@F 22a 

4@@5@ DATA 48516a0000RR0aR08R9R009R8R000 
eeeaaa 

40@6@ DATA 207C51F8@B20745108062208059 
208451 

40078 DATA 6eQggRR800RR0R00R8aR0R0R0R0000 
aeaaee 

4@@80 DATA 200A58A2042040512090512053 
512@58 

48098 DATA 51209851204851A28620205128 
925128 

40180 DATA @D51208D51289051202D51602a0 
eeega9 

40118 DATA 200851AQ@@B19091GA88PRF9E6 


ee ee) 


seem ora neaonoe 


ae eer eo ooo e 


Pe ee 


Press an 
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@1E6@B 
40128 
880888 
40132 
809584 
40148 
F 86088 
40150 
FFQ088 
40162 
18B5a8 
401708 
888000 
40182 
38B580 
40198 
8800028 
40280 
Q3A920 
40212 
12B58@ 
40220 
8185@C 
40232 
Q8B182 
40240 
8006280 
40258 
37D@62 
40260 
0088Da 
40270 
FQB620 
40282 
9188D2 
40290 
85@BA2 
40380 
318@B1 
40318 
1QE668 
40329 
45000 


DATA CA1GFO6E0CeRRRBGR00000000002 


DATA B@QQO8B20000009@0802A203B5 


DATA CA1@FS6BAZ@DBDF@S@9588CA10 


DATA BGABBB78OBO0RGRG0GFFQR80228 


DATA A2Z822068051A280208D51E68B6a 


DATA 692895@68B501690895G 1 6a0a02 


DATA A2B22@82D51A288202D5 1 C6@B6A 


DATA E9289580B501E980958 1609008 


DATA 46@C9@QEF 6@GF 6U2D004F 601F6 


DATA 858CE6BA6G0G08G8868C248C5a@ 


DATA @8D668D60228D004D601N683A9 


DATA CO6BABBBBAGVEB 1 BO25BCHAGGAQ 


DATA 256C6008AG08B 1040500910468 


DATA AGBBB1B6850C91 B668800000A9 


DATA AS?7A2Z1F8581AB888400A94091 


DATA FBC6@1CA1 QF 660082BE450A4QF 


DATA 8051 88D8F AAZ@BA4BEF O862042 


DATA FAZQ@DAS82098516828E450A958 


DATA 1F6@200851AG@G0B1809102B18A 


DATA 0291 0A88D@F 1E6G1E6Q03E6@BCA 


DATA2 
TEXT :CLS :PLOT1@,; 18, “TRANSFERING 


M/CODE" 


45010 
45020 
45838 
435049 


435850 
45060 
45070 
45888 
435090 


PLOT13,15,"PLEASE WAIT 9" 
A=#5800 :<READDS 
FORI=1TOLENCD$)STEP2 
U=VALC"#"+MID$SCD$,1,2)3 =POKE A, 


A=At] :UT=UT+U 

NEXT 

READDS$ : IFD$<>"2" THEN45834 
IFUT=4@0848 THEN RETURN 
PRINT:PRINT=:PRINT"ERROR -— CHECK 


PROGRAM AGAINST LISTING." =:PING 


45106 


END 


If any other language or m/c code program (other than Oric 
Basic) is required, then it has to reside in RAM, i.e. use up 
valuable program space. It would be much more convenient 
if the required routines were in EPROM, which could be 
switched in to replace the Oric Basic ROM, when needed. 
The circuit described allows for just this (up to 4 ROMs plus 
Oric’s internal ROM), so that the user can switch from one to 


the other, at will. 


Design 


The ROM board design was based upon the 2764 and 27128 
EPROM chips, for which several programmer designs have 
already been published in various magazines. 

A single 3 to 8 line decoder is used to do the address 
decoding and also the EPROM selection. This gives a 
theoretical maximum of eight EPROMs, but due to various 
reasons, it was decided to limit the design to four EPROMs. 
This still enables a choice of two 16K blocks (2764s) or four 
16K blocks (27128s). A quad nand gate I.C. is used to 
provide various logic conditions to complete the circuit. 

For anyone who Is adventurous enough, the design may be 
extended to include extra EPROM sockets. This would entail 
address and data line buffering, plus the addition of a 
separate power supply. As this complicates the circuit, it is 
not described in any detail. If implemented, the full design 
would give you a massive 144K of switchable ROM!! 

Also included is the often required hard reset button. This 
will be needed to restart the system, when switching between 
ROMs. Not only is this more convenient, but it saves wear 
and tear on the power plug. 
| | One point that may cause problems for some users, is the 


ROMDIS lead. This disables the Oric internal ROM, when 


taken low, but only works if mask PROMS are inside the 
machine (23128s). EPROMs were fitted to earlier Orics 
(Serial No less than 20,000), in which case, the PROMs will 
have to be removed and re-inserted in the extension EPROM 


Board. 


Most of the work is done by the three to eight line decoder 


(IC2). This chip has six inputs, three of which determine 
which outputs are active, and the others being chip select (CE 


or CE) Pins. 


Consider the chip select inputs first ... 


PIN 4 (CS) 


PIN 5 (CS) 


PIN 6 (CS) 


Enables the chip when address lines 14 and 15 
are high. ($C094 094 094 to $FFF). This is 
the area of memory that is used for the Oric 
ROM. 


This pin is controlled by SW1, which selects 
either Oric’s internal ROM or the external 
ROM. The signal that selects the external 
ROMs via IC2, is the same signal that disables 
the Oric ROM via the pin labelled ROMDIS 


Is logic high when Oric is reading from 
memory. (Logic low when writing to memory). 
When operating in ROM, the memory chip 
only needs to be enabled during the read cycle. 


Therefore, IC2 will only be enabled under the following 


conditions... 


1. Oric accessing memory between addresses $CDDD and 


SFFFF. 


2. External ROM board selected by SWI. 
3. Oric is reading from memory. 
The other three inputs select which ROM chip (IC 3-6) is 


enabled. 


PIN 3 


PIN | 


Is tied to OV because only four ROM chips 
are catered for in this design. If connected to 
an additional switch (SW5?) with a pull up 
resistor, then up to eight ROM chips can be 
used. 


Can be connected in one of two ways. 
1. Connect 1-2. Selects 1 of 4 ROMs. ROM 
type 27128. 
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2. Connect 2—3. Selects | pair from 2 pairs of | Switches 
ROMs. A13 determines which ROM of the SWw1-3 Min Slide 3 OFF 
pair is active. ROM type 2764. Sw4 Push to make | OFF 


Plugs & Sockets 

The OE input to the ROMs is derived from the €2 clock 34W IDC Plug 1 OFF 

signal. IC 1b being used as an inverter. 14W DILIC Skt’ 1 OFF 

As in normal digital practice, all unused inputs are tied to 16W DILIC Skt 1OFF 

definite logic levels to reduce transient switching noise. An 28W DILIC Skt 4OFF 
abundance of decoupling capacitors should be distributed iikecianeous 

around the circuit, preferably as close as possible to IC 34W IDC Ribbon Cable 


Approx 4” 
power supply pins. P.C.B. 


Parts List 


Resistors 2K2 2 OFF 


Capacitors 100uF 1 OFF 
100nf 5 OFF Buy Lines 


Integrated Ccts 
74LS00 1 OFF Most of the parts should be easy to obtain from any mail 
74LS138 1 OFF order companies that advertise in electronics magazines. 
2764 or 27128 4 OFF *See text Suitable switches were obtained from R.S. Components Ltd. 
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Oric Advanced User Guide Computer Terminology Explained 


Leycester Whewell I.D. Poole, 
Adder Publishing Babani Publishing Ltd. 
287pp £8.95 8ipp £1.95 


Computers Mean Business 
Jacquetta Megarry 

Pan Breakthrough Books 
336pp £2.95 


This book is laid out alphabetically, like 
a dictionary, giving very brief 
explanations for some of the common 
terms encountered by the home 
computer enthusiast. 


7 a a 
7 = y= 
z= QRIC ra 
The amount of words listed seem to be 
Z very few, compared with the amount 
7 = y a 
y = y a 


there actually are. The other thing is that 
the words listed are the ones that even 
people with very little knowledge of 
computers already know. 

It has a table of ASCII and Control 
codes in the appendices, followed by 
four blank pages for notes? 

Personally, I wouldn’t recommend it. 
Only someone who knows nothing at all 
about computers and doesn’t want to 
know much more, could consider it of 
any use. This may sound harsh but it is 
also rather overpriced, which doesn’t 
help matters. 


USER GUIDE 


LEYCESTER WHEWELL 


If you've been looking for a book that Computer 
goes into more detail than the actual Term inology 


manual you get with your Atmos, this is 


it. This book really will be of great help Explained 
to you and is well worth investing in. 

It has a full ROM dissassembly for 
anyone wanting to do Machine Code 
programming and full details of all the 
memory locations used by the ROM. 

It explains how to read the keyboard 
in Machine Code and how to generate 
sound. There’s a detailed explanation of 
how Basic works and Basic variable 
storage. 

Apart from being much more 
comprehensive than any other book of 
its type, so far, it also covers Oric’s 
hardware in great detail (mainly the Disc 
Drive). 

I find it very impressive; I can 
confidently recommend it to anyone 
wanting a lot more information about 
their Oric-1/Atmos. 


|. D. POOLE 


Although this book is not specifically for 
the Oric-1/Atmos it gives a detailed 
explanation of the key business 
applications of computers. 


It includes Data Base management, 
Accounting, Stock control, Word 
Processing, choosing Hardware and 
Software, etc. 

It is divided into four sections: 
1. What is a computer? 
2. How can computers help business? 
3. Computers in business practice. 
4. Computing and the organization. 

There are two useful appendices. The 
first gives an alphabetical list of sources 
of advice and information, giving a brief 
description of the companies and how 
they can be of use to you. The second 
lists books for further reading with brief 
summaries of each of them. 

At £2.95, it is good value, if you’ve an 
interest in business. 
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TELEPHONE 
SOCKET 


The ORIC Prestel system enables ORIC-1 or ATMOS 
owners to use their microcomputer as a fully functional 
Prestel terminal. 

The system comprises a BT approved V23 modem, a 
Prestel terminal applications program cassette, a modem 
adapter unit and interconnecting cables. 

The total cost of the Prestel system is £99.95 and this 
combined with the fact that a disc drive is not required, 
makes it a low cost system well within the reach of most 
ORIC-1 and ATMOS owners. 


INSTALLATION 


Installation is simple: Just unplug your telephone cable from 
the wall socket and connect the cable from the modem in its 
place, then plug the telephone cable into the socket at the rear 
of the modem. Next, connect the modem adapter to the 
microcomputer EXPANSION socket using the ribbon type 
cable, and to the modem using the DIN plug cable. No 
changes are necessary on your microcomputer so the entire 
procedure can be carried out in a few minutes. The 
connections from microcomputer to tape cassette recorder 
and T/V are unchanged. 


WHAT DO YOU NEED? 


Finally, insert the Prestel cassette into the tap recorder and 
load the program in the usual way (using CLOAD*“”). When 
loading is complete, an ORIC Prestel message is displayed 
and the microcomputer is now ready for use as a Prestel 
terminal. 


[ pesides owning an ORIC-1 or ATMOS and a tape recorder, 
you will need a BT type 600 plug-socket connecting your 

telephone to the telephone line. If your connection is the old 
type wired in junction box you will have to have it changed 
by British Telecom. 
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THE ORIC MODEM 


THE PRESTEL SYSTEM FACILITIES 
AVAILABLE 


The following facilities are available to you. Most of these are 
‘on line’, in other words your system must be connected to 
Prestel. Those facilities which do not require the Prestel 
connection are indicated by “off line”’. 


— Select a Prestel page by number or by using the menu 
instructions displayed. When a page is selected, it is 
automatically stored in RAM; up to 99 average size 
pages can be stored. 

— Re-select the previously displayed page without having to 
remember the page number, up to a maximum of three 
times. 

— Request a repeat of the currently displayed page. This is 
useful in cases where some of the information displayed is 
garbled. If the page is a chargeable one, you won’t be 
charged for a repeat and there is no limit to the number of 
repeats you can have. 

— Request an update of information. Some pages are 
regularly updated (e.g. airline travel times). If you select 
such a page you will get the latest update. There is a 
charge each time you request an updated page. 

— Select the next frame in alphabetic sequence under the 
currently displayed page number. E.g. if your screen is 
displaying page number 120 frame B, you can quickly 
select all subsequent frames (C, D etc) for that page 
number only. 

— View'concealed data on a displayed page. 

— Save a displayed page or page(s) stored in computer 
memory onto tape cassette. To save a displayed page the 
command is CTRL+T. To save the pages currently 
stored in RAM, exit Prestel using CTRL+E and then go 
to the initial menu via CTRL+E again. You will then be 
given the option of saving to tape if you wish to do so. 

— Print a displayed page. Use CTRL+L. 

— Load a page from cassette tape, the page will be retained 
in RAM and displayed on the screen. Use the menu 
which is displayed immediately the Prestel software is 
loaded; it gives you the option of calling Prestel or 
retrieving a page from tape. 

— Disconnect the system from Prestel but leave the ORIC 
Prestel software loaded. Use CTRL+E. 

— Select a page for display and save it onto cassette tape in 
one operation. 


TECHNICAL INFORMATION 


Memory (RAM) Allocation 


The Prestel software, when loaded into the computer memory 
occupies approximately 6K bytes of RAM within the bottom 
48K (from 8000 to 9800) and a further 1OK RAM is taken 
up with screen memory. 

The area of RAM reserved for a page of data is 1096 bytes 


(the maximum amount of data required to fill a screen 
including attributes and concealed characters). This leaves 
sufficient RAM (32K) to store ~30 frames full of data (40 + 
960 bytes = approximately 38K bytes), or 99 frames with an 
average amount of data. 


Modem 


The modem is a V23 and is British Telecom approved, 
operating at 1200 baud in half duplex mode of 1200/75 baud 
in full duplex mode. 

The modem has its own built in power supply driven by 
240 volt AC mains. 


Keyboard Characters 


The following keys when pressed whilst the prestel software is 
loaded, do not give their usual ASCII characters but the ones 
indicated below:- 
4+ gives 
| gives 
gives 
| gives 
A gives 
£ gives 
gives 
gives + 


4 
DELETE: does not delete — you'll have to use cursor control 
to edit message and response pages. 


Physical Dimensions 


The units are quite small, the modem measures 
approximately 23.5cm (94”) + 16.5cm (64”) + 5.5cem (2}”) 
and the modem adapter measures 12cm (43”) + 6.5cm (24”) 
+ 5cem (2"). 
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Pure machi 


Scuba Dive — Dive for sunken treasure, avoiding sharks, 
octopii and so on. For Oric-1 users, reduced 
from £6.95 


Hareraiser — Solve the puzzle on this and the follow up 
program and you might win a valuable prize. 
Save £1.00 £7.95 


Oricaid — an excellent toolbox, monitor and assembler, from 
Micrograf and for all Orics. Save £2.00 on usual price £9.95 


£2.95 


Galaxy 5 — A collection of five games set in space, from 
Durell. Suitable for 16K machines and reduced 
from £6.95 £2.95 


Dinky Kong — Attempt to rescue the girl held captive by an 
angry gorilla. Including full colour graphics. 
Normally £6.95 £2.95 


Atmos Extended Basic — Offers 22 extra commands, plus the 
facility of entering a line or command in upper or lower case. 
Save almost £2.00 £7.00 


Super Meteors — A version of ‘Deluxe-Asteroids’ with 
excellent sound effects, hires graphics etc. 
Normally £6.95 


Jogger — Guide your intrepid Jogger across the four-lane 


£4.50 
motor-way amongst other things. Usually £6.95 £2.95 
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___ OFFERS 


Our opening offers come from Durell, Severn Software, 
Lothlorien, Micrograf and Haresoft. I’m sure you'll be able to 
find something that appeals to you. 


Galaxians — A superb version of the popular arcade game, 
written in super fast machine code. Was £6.95 £4.50 


Lone Raider — You captain a spaceship and your mission is 
to save the Earth from aliens. Down from £8.50 £7.00 


Acheron’s Rage — You are enclosed by forcefields, trapping 
you in a ring of space. Normally £6.95 £4.50 


Orion — A two-pass symbolic assembler, disassembler with 
single-step monitor. Includes comprehensive manual. 
Was £12.95 £7.95 
Johnny Reb — Play against the computer or a friend and 
perfect your tactics and rewrite American history. 

Save £3.00 £3.95 
Dracula’s Revenge — As fearless Friar Freddy, you receive 
the papal edict to sanctify all of Dracula’s castles. 
Reduced from £6.95 £4.50 
Two Gun Turtle — It’s the middle of winter and as the turtle 
you must defend your strawberry patch. Save £4.00 £2.95 


Warlord — A challenging game of analytical skill, set in 13th 
Century Japan. You must meet attacks from other armies. 
Normally £6.95 £2.95 


Machine code for the Atmos and Oric 1 gives a full 
description of all the machine code instructions available 
to the Oric’s 6502 chip and also suggests applications for 
their use. It describes how, when and where machine code 
routines can be entered. Talk to your Oric in its own 
language. £5.95. 


The Altai joystick interface is fully compatible with the 
PASE standard interface, and works with any Oric 
computer. It takes one or two Atari compatible joysticks and 
plugs into the printer port, so may affect the sound of some 
games. Supporting software is supplied and could be 
incorporated into your own games very easily. The special 
club price is a mere £4.95. 


Exploring Adventures on the Oric 48K gives plenty of 
suggestions and has three complete games listed, for you to 
play and study. Using the features of the Oric to good 
effect is well explained, and there are many hints for 
adventure game players too. With the normal price at £6.95, 
the club price of £5.00 is a good saving. 


A Hard Cover should prove very useful to those of you 
wanting to take care of your Oric-1/Atmos. It protects it 
from knocks, spillage and dust when not in use. It’s made 
from tough but light ABS, shaped neatly to fit around your 
machine and it looks more attractive and offers more 
protection than ordinary soft covers. £5.95. 


Software-Oric-1/Atmos 
Hareraiser 

Oricaid 

Atmos Extended Basic 
Super Meteors 
Galaxians 

Lone Raider 
Acheron’s Rage 

Orion 

Dracula’s Revenge 
Two Gun Turtle 


Software-Oric- 1 
Scuba Dive 
Galaxy 5 

Dinky Kong 
Jogger 

Johnny Reb 
Warlord 


Books 


Machine Code for the Atmos and Oric- 1 
Exploring Adventures on the Oric 48K 


Accessories 
Altai Joystick Interface 
Hard Cover 


Complete the order form and send it to: 


Oric Club, 

Unit 1, 

Techno Park, 
Newmarket Road, 
Cambridge CB5 8PB 


Cheques must be made payable to Oric Club. Alternatively, 
ring the Club on 02205 2264 and order by Access. 


Goods will be despatched in 28 days. 
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CASSETTE LABELS 


Mr Panting from Reading has written a short program to 
produce box labels. If you use many makes of tapes it 
ensures uniformity when viewing the cassette rack. 

As you will see from the examples shown, the program will 
produce labels for music tapes as well as computer tapes so it 
is quite versatile. 

It has been written for the Atmos and the printer used is a 
Centronics one. 


The listing continues on the following page. 


Side Une: Sreedi FAST 
a0) MAZE 
EXCELLENT GRAPHICS 


Side Tuot Sreed: SLOW 
BREAK CHIT 


FAST ACTION GAME 


SI MAZE 
BRE ARAL 


SETTE No 


Side Cre: 
JIM REEVE’ 
BEST OF.. 


Side Two: Seeed: 1.75 irs 


GEQRGE JONES 
THE RARE TS ON 
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18 CLS*PRINTCHR$(C17) :PAPER@: INK? 

28 PRINT@8,13;"DO YOU WANT INSTRUCTIO 
NS" :GETA$ 

328 IFAS="Y"THENGOSLB 1800 

4@ GOSUBS80 

9@ LPRINT"+ 

6@ LPRINT:LPRINT 

7@ LPRINT" CASSETTE No. "3C$% 

8@ LPRINT" =a = 


= 


98 IFWS$="N"THENI@BELSEGOTO110 


18@ LPRINT" Side One:" 

110 IFW$="Y"THENLPRINT" Side One: 
Speed: "5F¢ 

12@ LPRINT" "3N$ 


130 IFX$="N"THEN14@ELSE15¢@ 
14@ LPRINT:LPRINT :LPRINT 


15@ IFX$="Y"THENLPRINT" "30$:LPRINT: 


LPRINT 
160 IFY$="N"THEN17@ELSEGOTO180 
17@ LPRINT" Side Two:" 


180 IFY$="Y"THENLPRINT" 
Speed: "5S$ 

19@ LPRINT" "5M¢% 

200 IFP$="N"THEN21Q@ELSE220 

218 LPRINT:LPRINT:LPRINT=:LPRINT 

220 IFP$="Y"THENLPRINT" "“3E$2LPRINT: 
LPRINT :LPRINT 

230 LPRINE" Fu «selec ete a adeeb we De wD 


Side Two: 


248 IF 1$="Y"THEN27@ 
258 LPRINTCHR$(273 3CHRS(14);" —"5NS 
268 LPRINTCHR$(27);CHRS(14)3" "5M 
270 IF 1$="Y"THENLPRINT :LPRINTCHR$(27) 
SCHRSC14)5" "GTS 
275 LERINT ss cnaaexewraene eres somens 
280 LPRINT:LPRINT:LPRINT :LPRINT :LPRIN 
T:LPRINT 
29@ LPRINT"+ 

po 
388 CLS:GOT042 
5@@ CLS:PRINT :PRINT 
51@ INPUT"ENTER CASSETTE No. 
NT 
528 INPUT"DO YOU WISH TO ENTER RECORD 
ING SPEED" 3W$ PRINT 
538 IFW$="Y"THENINPUT"ENTER SPEED SID 
E 1"3F¢:PRINT 
54 INPUT"ENTER ARTIST/PROGRAM SIDE 1 
" 3N$ :PRINT 


"SCH ePRI 


CASSETTE LABELS | nECIMAL & BINARY 


CONVERTER 


95@ INPUT"DO YOU WISH TO ENTER DETAIL 
S"5X$2PRINT 

3968 IFX$="Y"THENINPUT"ENTER DETAILS S 
IDE 1" 5;D$=:PRINT 

970 INPUT"ENTER ARTIST/“PROGRAM SIDE 2 
"SM$:PRINT 
98@ INPUT"DO YOU WISH TO ENTER RECORD 
ING SPEED" ;Y¥$:PRINT 

998 IFY$="Y"THENINPUT"ENTER SPEED SID 


This useful Quickie from Spain will convert decimal to binary 
E 2" 5S$ PRINT and vice versa. 


68@ INPUT"DO YOU WISH TO ENTER DETAIL 
S'5P$:PRINT 
618 JFP$="Y"THENINPUT"ENTER DETAILS S 
IDE 2" 5E¢$:PRINT 


62@ INPUT"DO YOU WANT A SINGLE TITLE" 1@ CLS:PRINT:PRINT"Decimal or Binary? 
;1$:PRINT " 3GETS$ 
63@ IFI$¢$="Y"THENINPUT" ENTER MAJOR TIT 28 JFS$="D"THEN128@ 
LE" 5T$ 25 IFS$="B"THEN288 
648 RETURN 328 GOTO12 
Q88 CLS:PRINT PRINT PRINT ?PRINT 1@@ CLS:PRINT?:INPUT"What decimal numb 
@1@ PRINT" This program enables you er" 3N 
to produce" 105 IF N>33554431 THEN 188 
@20 PRINT'"cassette box labels.” 107 CLS:P=N:M=@ 
1Q@3@ PRINT" The label may be printed 118 REPEAT :M=M+1 
on most of" 115 C=N72 
1048 PRINT"the popular printers avail 12@ IFC>INTCCJ) THENB=1 
able for" 125 IFC=INTCCJ THENB=a 
O58 PRINT"the Oric computers." 13@ N=INTOCN/42) 
1068 PRINT"Several options are inbuil 135 BS=STR$(B) :BS=RIGHT$(BS, 1) 
t within" 14@ PLOT38-M,1,B8$ 
1Q@7@ PRINT"the program; such as choic 14S UNTILC<1 
e of speed," i5@ PRINT:PRINTSPCC25-MIJP" = ":PRINT: 
1088 PRINT"single or double titles on RINT 
the spline," 155; END 
O98 PRINT"program detail entry,etc." 208 CLS:PRINT:INPUT"What binary numbe 
188 PRINT" Preferably,a heavier typ r' 3N$ 
e of paper" 285 FORU=1TOLENCN$) 
11@ PRINT"should be used in the prin 218 M$=MIDSCN$,U, 1) -D=VALCMN$) 
ter,or if" 215 IFD<@ORD> 1THEN30¢ 
1120 PRINT"your machine will take a t 220 S=S+DkK2*(CLENCN$)—-Us 
hin card" 225 NEXT 
113@ PRINT"so much the better." 230 PRINT:PRINTN$" = "S:PRINT=:PRINT?E 
1148 PRINT" After the label is print ND 
ed ,simply" 388 PRINT:PRINT"Your number isn’t bin 
15@ PRINT"cut from ’?+? to *+? and fo ary" :S=@:WAIT15@:GOTO20¢ 
id along” 
116@ PRINT"the dotted lines." 
178 PRINT@1@,225CHR$C140)+"PRESS KEY 
TO START" :GETQ$ 
8@ CLS:RETURN 


J. GRANADOS 
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SCREEN DUMP 


exactly on to the printer. 


+ 


53588 C$="COPYING" 
951@ FORC=1TOLENCCS$) 


6@05 LPRINTCHR$(17) 


6820 S=SCRNCY,X) 


6038 LPRINT CHRS$(S); 


6858 NEXTY :LPRINTCHR$C 17) :-LPRINTCHRS(C#2 


B) =NEXTX 


T.C. BROWN 


ORIC ATMOS 


ROUTINE 


the first two characters of a variable 


53528 POKE48@@0+C,ASC(MID$C(C$,C;, 13) tNEXT 
6088 REM SCREEN COPY ROUTINE 

6018 FORX=@T023 :FORY=2T0393 

6825 IF S=95 THENLPRINTCHR$C#5B) CHRSC#8 


JCHR$C#3D) ;:GOTO6@S5@ ’ POUND SIGN 
6026 IF S=63THEN6G@58 ’* QUESTION MARK 


6460 FORC=1TO? :POKE48@80@+C, 32 :NEXT 


VARIABLE LIST 


As the ORIC ATMOS only recognizes 


name, it is useful to know what has been 
used so far, especially on long programs. 
This short routine by D. Wieckowski 
uses no variables its self so will not add 
to the list it produces. 


It may be JOINED onto the end of 
any BASIC program (provided the line 
numbers are less than 63992), at any 
time, and will list out all the run-time 
variables so far used. The length of the 
routine is less than 250 bytes so should 
not give any ‘out of memory error’, even 
with a large program already in memory. 
The routine is run by a GOTO 63992, as 
run would clear all the variables in 
memory. 
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PLAY COMMAND 


Here’s a useful tip for users trying to get to grips with the 
play command. 


This short program will print the contents of the screen ‘D’ can be 0-65535 but for this program 500-1500 is 


about right. 

All Wait commands are variable, depending on the user’s 
time and patience. 

There’s plenty of scope for those who wish to make 
improvements but hopefully this will give some readers a 
clearer understanding of the Play command. 


POKE#26A; 18:POKE#BBAS; 9 
38 CLS :PAPER4 : INK? 

4@ FOR C=@8TO? 

45 N=] 

3@ FOR E=8T0?7 

68 D=508 

7Q@ PRINT@1,65;CHR$(131) 

8@ PRINT@8,65"C","N","E", "D" 
98 PRINT@1,8;5CHR$(1313) 

108 PRINT@2,8;"PLAY" 

118 PRINT@6,8;CHR$C135) 

120 PRINT@?7,85C 

138 PRINT@15,85N 

148 PRINT@23,835E 

15@ PRINT@31,8;3D 

16@ WAIT 3300 

178 NEXT E 

188 WAIT 18 

198 NEXT C 

208 PLAYS,@,0,8 

2180 POKE#26A, 3:POKE#BBAS, 7 
CLS:PAPER? = INK@:LIST 


ORIC ATMOS VARIABLE 
LIST ROUTINE 


63992 DOKE(®), DEEK(+9C) 

63993 PRINTCHR$(PEEK(DEEK(@)));CHR$ 
(PEEK(1+DEEK(9))); 

63994 IFPEEK(DEEK(0))> 128THENPRINT“%”; 

63995 IFPEEK(DEEK(@))< 128ANDPEEK(1+DEEK(0)= 
>128THEN PRINTS”; 

63996 IFDEEK(@)=>DEEK(+9E)ANDPEEK(DEEK(Q)) 
>32THENPRINT“dim”;:GOTO63998 

63997 PRINT:DOKE(®),(7+DEEK(@)):GOTO63999 

63998 PRINT:DOKE(@),(DEEK (#)+DEEK(2@DEEK(9))) 

63999 IFDEEK(@)<DEEK(+A9)THENGOTO63993ELSESTOP 


D. WIECKOWSKI 


THE ORIC 1D164 


1Q164 —- SPECIFICATION 


The new ORIC IQ164 is a very versatile machine and has 
features ‘built-in’. It contains 64K of RAM and up to 112K 

of ROM. Its operating system is cartridge based which allows 
many different languages to be run on the same machine. The 
machine’s features are listed below with a brief description of 
each. 


General 


The IQ164 uses 6502 microprocessor and uses 64K of 
dynamic RAM and allows for the use of up to 112K of 
ROM. It achieves the large ROM space by paging the top 
16K of addressable memory eight times. The chip count is 
very low because of the widespread use of ULA technology. 
The ULAs are used to control the following functions; video, 
RAM refresh, address decoding, memory paging, bus 
buffering and various logic functions. The case has been 
purpose designed and houses a high quality QWERTY 
keyboard. Available keyboard languages are English, French 
and German. All Atmos software will run on the 1Q164. 


Hh: WO; vapiiny 
ee We titi 
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The IQ164 has two cartridge losts, one for the language 


cartridge and one for the USER applications cartridge. The Two joystick ports are provided which will accept ATARI 
cartridges are small and are completely enclosed when they compatible joysticks. 


are in position. The language cartridge can contain up to 64K 


A toned diana toner ecard: EMME 
supplied as standard with each machine is ‘Super Extended 


BASIC’, which contains all existing BASIC V1.1 commands, 
the disc operating system and a further thirty-one new 


A modem is available which plugs into the 1Q164 which 


commands (see software specification). Other languages allows it to be used as a Prestel terminal and to communicate 


cartridges available will include Prestel, Word Processor, 


rest and are not dependent upon discs or cassette loading 
systems. 


Video 


The display can either be on a monitor or a UHF television 


also be used with the Peritel System. The UHF output is 
Band 4, Channel 37, PAL or NTSC colour. The UHF output 
can also be B/W inverse video if requested. The video modes 
are as follows:- 

. Text 28 rows x 40 columns, serial attributes. 

. Hi-Res Graphics 240 x 200 pixels, serial attributes. 

. Text 26 rows x 80 columns, serial attributes. 

. Graphics 160 x 200, 4 bits/pixel (ie. RGBI). 

. Hi-Res Graphics 240 x 200, parallel attributes. 

Only mode one is not bit mapped. 


ABWN 


Disc Drives 


The IQ 164 provides a Schugart compatible disc interface. Up 
to four disc drives can be connected at any one time. There is 
sufficient capacity in the power supply to feed two ORIC 
slave disc drives in addition to the 1Q164. ORIC disc drives 
use 3” discs and can store up to 160K bytes per side (see 
DOS commands for further details). 


The IQ 164 has three cassette loading and saving routines 
which include the two ATMOS routines which run at 300 
and 2400 baud. The extra routine runs at 2400 baud and 
saves the data in 1.5K blocks and it uses error correcting 
codes to give extra reliability. 


RS232 


The RS232 uses the standard 25 pin DIN connector and can 
be used to send or receive data between printers, terminals, 
1Q164’s etc. It can be set up for baud rates between 50 and 


Expansion Port 


The address, data and control buses are available via a 
connector on the rear panel which allows for future 
peripherals. 


62  Oric Owner 


which can be run include LOGO and FORTH. Applications | With other 1Q164’s via the telephone system. 


Spread Sheet etc. The cartridges will run immediately after [Reset  —— ss—<—sSSSSSSSC 


A reset switch is provided and allows three types of reset:- 
a) a full reset (with disc boot-up). 


b) an NMI type reset. 
c) a full reset, without disc boot-up. 


receiver. The monitor output is RGB and Sync., and it can Software 


The enhancements to the software over the ATMOS are 
probably more striking than the hardware enhancements. 
First of all the STRATOS is fully ATMOS compatible. A 
command called ATMOS initialises the STRATOS to 100% 
compatibility with the ATMOS. The new software features 
over the ATMOS are:- 


RENUM 
AUTO 
ED — a new and better screen editor. 

IRS232 — used to define the parameter of the serial I/O 
channel. 

SLIST 

SPRINT 

SINPUT -— read serial input. 

SETFUN — used to define the function of each key 
when combined with the FUNCT key. BASIC single 
key entry. 

GLOAD -— load game cartridge. 

ABSDRAW 

MOVE 3D 

DRAW 3D 

ADRAW 3D 

DSET 3D 

PAINT 

SPLOT 

ELLIPSE 

EVAL — a new string handling instruction. 

GDIR -— game cartridge directory. 

ENV — a new sound command to synthesize 
waveforms. 

NOTE — new sound command. 

ENGLISH 

FRENCH 

DELETE -— deletes lines of program in BASIC. 
ECLOAD -— new super cassette system. 

XSAVE 

XLOAD 

XSTORE — For modem communications to other 
ORIC’s 

SRECALL 

ATMOS 
ECSAVE 


Fis 


DISASSEMBLING THE 
ORIC-1 


These hints were discovered by Mr Turner whilst he was 
using his disassembler. Most of them will not work on the 
Atmos. 


POKE 555,64 — disables the reset button 

PEEK (520) — gives a different value for each key pressed, 
for 56=no key 132=Space Bar 172=left arrow 156=up 
arrow 180=down arrow 188=right arrow 

DEEK (621) — location the screen starts at 

PEEK (623) — number of lines on screen 


The above can be poked to give crude screen windowing 
(Peek these values first to find out their normal values): 


DOKE621,48600:POKE623,8:CLS 


DOKE 27,27 — Oric hangs up if CTRL C used to break a 
program 

POKE48035,12 — causes the caps message to flash 

PEEK(781) — equals 2 if no sound is present at the din socket 
or 18 if a tone is present. Connect up your recorder as you 
are loading in a program without typing ‘CLOAD’ and 
run the following program: 


10 PRINT PEEK(781):GOTO10 


CALL 63618 — Resets paper, ink and characters 

CALL 63562 — Orics boot routine. This is executed on 
power-up 

CALL 52234 — clears the text screen 

CALL 62506 — sets Hires but Oric thinks it’s in text mode. 
Try the following: 


CALL 62506:WAIT200:PLOT10,2"°123456” 


CALL 64199 — Zap 


CALL 62485 — Shoot 
CALL 62488 — Explode 


CALL 64196:PLAY0,0,0,0 oo off 
CALL 64198:PLAY0,0,0,0  °OUnE eNects 


P. TURNER 


FORTH 


Whilst learning Forth from a book, Mr Harrison came across 
a definition for the 10 times-table which used the Forth word 
‘J’. This however is not available on the Oric implementation. 
He thus tried to resolve his problem and his first attempt is 
screen |. 


However, Forth is meant to run best without using 
variables to the extent they are used in Basic. With a bit of 
trial and error using stack manipulators, he came up with the 
following definition of ‘J)]-:J R> R> R> I ROT ROT >R 
>R SWAP >R; 


Screen 2 incorporates this definition. Both screens illustrate 
the use of ‘.R’ with prints the tables neatly in columns. 


SCREEN +1 
0 (TIMES-TABLE 1) 

10 VARIABLE OL 

2 :TTI CLS 29 EMBCR 

3 111 DOIOL! 


4 111DOIOL@*4.R 
5 1 INK 6 PAPER 

6 LOOP 

7 CR LOOP 29 EMIT ; 

8 2 LOAD 

9 


SCREEN#2 
0 (TIMES-TABLE 2) 
1 :JR>R>R>IROT ROT >R >RSWAP DR; 
2:TT2 CLS 29 EMIT CR 
111DO 
111DOI1IJ*4.R 


4 INK 3 PAPER 
LOOP 
CR LOOP 29 EMIT ; 


MR. HARRISON 


Orc Owner 63 


BYTES FREE 


I have recently received the Atmos 
upgrade and am very pleased with it. 

I note that the bytes free displayed at 
the start indicates approximately 10K 
less than the Oric-1. I assume some 
bytes will have been used in the new 
Basic, but surely not 1OK. Could you 
please explain what happened? 

J. Whittles, Rossendale 


The amount of memory available for use 
in Basic remains exactly the same; the 
bytes free displayed on the Atmos takes 
account of the memory that would be 
used for the Hires screen. 


ORIC DUAL 


JOYSTICK 
INTERFACE 


I heard that Oric are releasing a dual 
Joystick Interface. Will it be able to 
work on any existing software? When 
will it be available and how much will it 
cost? 

R D Waterman, St. Albans 


The Joystick Interface is not 
programmable, and therefore any 
software for it will have to be specially 
written. Tansoft’s Insect Insanity and 
1JK’s Cybermen are compatible with it, 
existing titles are being adapted. For 
further information turn to the news 
page. 
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PEACE OF 
MIND 


May we enquire as to the current 
position on “Oric’’. Recently the Atmos 
has been disappearing from all the retail 
shops, as has all the software. The 
number of mail shots received from 
yourselves recently suggest the “Oric” is 
alive and well, as does the news that Oric 
are to bring out a larger computer in the 
new year — (noted in a recent magazine). 
Perhaps you could answer this point 
generally by comment. 

D. Townsend, Essex. 


KEYBOARD 


As an absolute beginner trying to get 
friendly with his Oric Atmos, I would 
like to commend the Company for the 
excellent Manual provided. 

However, there is one area of 
information, vital to the beginner, which 
is not adequately covered. That is, the 
use and function of the keyboard 
symbols. 

What, for example is the difference in 
use of the different types of brackets? 
K. Davies, Watford. 


There are many symbols on the 
keyboard that are not used for 
programming, they are simply 
implemented for convenience. 
The square and curly brackets are 
useful when outputting text, since they 
are used in the English language. 


aa cal ie SS eae SL AY (EEF Rar ean oe ne aera SIE 


It is quite obvious to most of our readers 
that the Oric Atmos has, over the 
summer months, lost its pride of place in 
the high street shops. 

It is now apparent that Oric failed to 
consolidate this once favourable position 
by not continuing to promote brand 
identity through the media. 

Instead, they concentrated their 
efforts on tapping the very lucrative 
overseas markets with the result that the 
machine achieved the acclaim and 
success it deserves. 

However, renewed emphasis is now 
being given to the home market which 
recently has been translated into some 
very favourable press reports. 


PROBLEM 
PAGE 


We would like to start up a 
Problem Page for those of 
you having specific problems 
with programming and 
machine code. David 
Sinfeld, who I’m sure you 
will remember from his 
practical machine code 
articles we’ve printed, has 
offered to answer your 
letters, if we receive enough 
of them to start up this new 
idea. 


This is an offer you can’t 


Now the sparkle of Christmas had gone, all the Aliens had 
been zapped, and the little dots eaten in the Maze game, my 
Oric retired to a corner of the living room, to gather dust. It 
wasn’t long before I began to feel frustrated with myself, at 
having spent some £130.00 on the new computer, just to play 
Space Invaders, and the like. I soon realised that there was 
more to the complex machine, than just games potential, and 
began dabbling in BASIC. After another (!) look through the 
Oric Manual, I knew I’d have a hard time learning serious 
programming from this document, and so went on the hunt 
for decent books about Oric. I discovered these to be few and 
far between, around Christmas, as the Oric hadn’t exactly 
established itself, and publishers only produced for big selling 
machines (e.g. Spectrum etc.). However, I aquired copies of 
“The Oric | and how to get the most out of it” by Ian 
Sinclair, and “The Oric Programmer” by S M Magee & Mike 
James. Soon I was working away and learning the facilities 
Oric could offer. Incidently, I would recommend either or 
both of these books to budding programmers (their contents 
overlap a little, but both contain valuable information, and 
explain things to enable beginners to understand easily). 

On one of my many, regular, visits to the local computer 
store, I picked up a competition leaflet inviting entries for (I 
quote) “programs which could have commercial, scientific, 
industrial, or educational applications”, which set me 
thinking. The key word I thought was “applications”, and 
being in business myself (as a Do-it-yourself shop owner, and 
Building Contractor), I could think of several areas in the 
business, which could benefit from the application of a 
computer. I felt though that my lack of programming 
knowledge would be a hinderance, but nevertheless knew my 
ideas were sound enough, and decided to enter the 
competition. 


After some thought, and over the next couple of days, I 
began to develop a loose idea for the program. It was based 
on the fact that I spend so much time surveying dwellings, for 
replacement window enquiries, and that so many enquiries 
never turn into definite orders. I spend a lot of time chasing 
potential orders, and after my own time, and the vans 
running costs are taken into account, have wasted a certain 
amount of money, if the order doesn’t materialise. My 
program idea was to have the Oric installed in our shop, 
whereby customers could give details by telephone, or in 
person, and obtain an instant verbal or written quotation. 
This then would form the basis to follow up serious enquiries. 
The program had to be complicated enough to handle the 
various designs of windows, types of fitting, ages of dwelling, 
etc., and simple enough for the untrained shop staff to use. It 
had to be flexible enough to allow me to update prices, and 
designs, and accurate enough to avoid the quotations being 
too far out (in price). 


Now Oric’s graphics are excellent, and the sound is very 
good, and I decided to make full use of these facilities in the 
program. Not having any programming experience (at all!), I 
pondered on how to tackle the project best. I put all my ideas 
on paper — what information I required to be keyed into the 
computer, and what I required as ouptut. From here I divided 
the plan into blocks, these being in the order in which I 
thought they should be carried out by the machine. Over the 
next 4 or 5 weeks, at night and weekends, the program slowly 
took shape. Sometimes I would sit to the small hours of the 
morning, only going to bed when I was too tired to think 
straight. Using the paper plan as a guide, I sat night after 
night, with Oric on my knee, and the two programming 
books by my side. I followed the logical sequence — title, 
introduction, menu, routines (for 5 various operations). 


Introduction: 


This involved only TEXT mode, and consists of a single page 
brief introduction to what the program does. Using paper 
and INK commands, colours changed between the program 
screens. This allows distinction between program functions 
and gives a professional appearance. The press any key to 
continue instruction allows readers of various speeds to 
continue to Menu when required. 


Menu: 


Any of Oric’s commands or functions that I wasn’t sure of 
were referenced in one of the two programming books. The 
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Sel 


Menu is fairly straightforward TEXT display, with several 
IF/THEN tests afterwards to test what is keyed in, to divert 
the program to each of the routines (e.g. to price windows 
press 1). If an improper response is keyed in, then another 
IF/THEN test detects this, and asks the question again. 
While typing in the first two stages I got to like the semi- 
rubberised Oric keyboard. The TAB bug was often 
encountered and dealt with as instructed in the Manual. 


HIRES display of window designs: 


The first section displays white windows on a black 
background. The HIRES mode was called here, and 
extensive use of DRAW and CURSET commands made a 
reasonable display. Using PLOT several index letters were 
placed under the various window designs on screen. Oric 
have included a neat feature, which allows the bottom three 
lines of HIRES screen to be used exactly as the text screen is. 
This enabled me to request INPUTs and so on, using normal 
text commands (e.g. What is the window design A—F? or 
What is the window height ?). After the INPUT stage, the 
Menu returns, to do further work, or print the quotation. 


The routines all contain different operations and calculations. 
LOOPs were set up to store the information in ARRAYs, 
later to be recalled for printer and screen use. Three things I 
would urge beginners to do are, firstly, write all your variable 
and string names down, and secondly, do not change them 
during program development. Thirdly, make all variable and 
string names suit their subject (even if abbreviated) e.g. 
Window Price could be WP, or Glass Total could be GT. 
This will save a lot of heartbreak at debugging stage, 
particularly with the more subtle bugs. It could become very 
confusing to neglect this advice. One very useful Oric feature 
is the Basic sound commands. These can be used in LOOPs 
to provide warnings, or prompts. I used them where prompt 
was required, where care was necessary, and where Data 
could be lost by pressing the wrong key. Particular difficulty 
was encountered in trying to emulate the Print a command 
(lacking in the Oric), but TAB was used to place screen 
output in columns, and a special subroutine called to align 
decimal point (for neat layout). 


Printer section: 


This was the most complicated, and tedious section to 
program. The printer accepts commands from Basic, such as 
Lprint. But to make for a more flexible arrangement, it is 
better to use Print CHR$( ). The CHR$ code, in brackets ( ), 
has the effect of either telling the printer what to print, or 
telling it to perform a special task (such as line feed etc., or 
turning on and off the special print faces). This sounds easy 
in theory, and is, but transferring these codes from the Epson 
Manual to the actual program is tedious. However, the time 
spent doing so is worthwhile, as some nice effects can be 
achieved in the printed copy. 
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The final routine which may be called from Menu, is the 
End/New Order routine. This either clears all variables and 
resets everything to prepare for a New Order, or goes into a 
bright Warning display (with bell ringing effect), to warn the 
user that pressing <T>erminate loses all Data in memory. At 
this stage a final ultimatum is given, and the user may go 
back to Menu, or End the run. At all stages of the program, 
checks for correct input (by the user) are made, and re- 
requested if wrong. 


The program is used daily in the shop, and should save 
around £400—£500 per year in wasted journeys. I intend to 
develop it further, to cover doors and doorframes, for 
example, which also form a large part of my business. The 
recent purchase of the Oric Disc Drive should increase the 
usefulness of the program. I intend to convert it for Disc, 
which should make it quicker, and allow me to store seldom 
used subroutines (such as average fitting times for doors and 
windows), thereby extending its flexibility further. 


Several persons in the trade have commented that I have a 
useful and marketable product and I am seriously 
considering either having it marketed, or transferred to a 
more serious business machine for marketing. 


All this goes to prove that Oric could be considered for 
serious business use. This of course would be subject to 
software houses coming up with the goodies (which so far has 
not happened). I would urge all Oric owners (in fact all Micro 
owners) to have to go themselves. It’s ideas that matter. 
Programming skills come with lots of time and practice. 


I subsequently entered the Competition, and from 37 other 
entrants (some of whom had several thousands pounds worth 
of equipment), won first prize of £1000.00, and a beautiful 
cut crystal award. It gave me enormous satisfaction to have 
my work recognised by others. To think that a £130.00 
computer, a £250.00 printer, and a computer novice, could 
win such a competition. It goes to prove that it’s the software 
idea that matters, and not technical perfection or equipment. 


In the next issue we will list the program that won Paul 
Jenkins his £1000.00. 


6502 Puzzle 


3000 A2 06 LDX +6 
3002 B5 FF LDA $FF,X 
3004 9D 00 01 STA $100,X 
3007 CA DEX 

3008 DO FB BNE LOOP 


CLASSIFIEDS 


Study the Star Constellations, enter the 
time and your Atmos becomes a 
planishpere, over 60 constellations, 500 
stars. 


Cassette £4.00 


“FILL” “A bucket of yer best... an’ no short measures barman!” 


Spot the error in the following insert routine: 


do 6 times 
load 100-105 
store 101—106 


When a similar routine was used the result was 
unpredictable, and caused many head-scratching hours. Can 
you spot the bug? Give up? Well the problem is caused by 
the thrifty assembler which makes LDA $FF,X a two byte 
instruction instead of a three byte one. So instead of loading 
$100 to $105, we load $00 to $05! Very few assemblers 
allow you to specify a deliberate 3 byte instruction, so .BYTE 
must be used instead to put in the correct op-codes. 


Astro Software 

1 Dell Meadow 
Hemel Hempstead 
Herts 

HP3 9PS 


THE SOLUTION 


Mr Neagle, from Wellingborough, has 
sent in the solution to the Three Towers 
(one of the programs from the last issue). 
It not only solves the problem but it 
shows recursion in action as well. 


10 DIM N(20) ,A(20) ,B(20) ,C(20) 

20 INPUT N ’REM NUMBER OR RINGS 

30 I=0 

40 N(1I)=N:A(1)=4 S49 4-5=2:C(1)=3 

50 GOSUB 100 

60 END 

100 I=I+1 

110 IF N()=0 THEN I=I:RETURN 

120 N(I+ )=N(D— 

130 N(i+ J)=A()) 

140 C(I+1)=B(D) 

150 BU+1)=C(D 

160 GOSUB 100 

165 WAIT 200 

170 PRINT “MOVE DISC ”;N(1);” FROM “;A(I);” TO 
“sC(D) 

180 N(I+ 1)=N(1)—1 

190 C(1+ 1)=C() 

200 B(I+ 1)=C(1) 

220 I=I— 

230 RETURN 
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Super 3D arcade action Invaders will test your skill and 3D co- 
ordination to their limits. 8 rippling colour Invader screens of 
increasing difficulty with keyboard controlled 3D laser movement 
and fire sequence. (Brain required) £6.95 


Oricle (Smart Oric) 
Hours of family fun. Oric gets smarter the longer you play, eventually | 
you will have no secrets. Be careful what you say. £6.95 Also in French) 


Mystery Tower 

Superb musical arrangements. 47 different rooms. 3D and colour make 
this adventure game most enjoyable. You will certainly get lost, or forget 
where you're going. £6.95 (Also in French) 


Flight Simulator 

With airspeed, radar, ground/ 
vertical flight path indicators, 
artificial horizon and altimeter with 
continuous flight monitor on engine 
condition, stall speed etc., full 
colour, Hi-res graphics, 3D and 
sound. £6.95 


Space Crystal 

Space trading adventure game. Fascinating 3D space travel on your 
voyage in search of the illudium crystal, Black holes, meteorite storms, 
Space pirates, etc. Full colour and sound. £6.95. Also available for 
Dragon 32, Spectrum and Commodore 64 
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